large_unit_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 18 行

! { dg-do run }
! { dg-shouldfail "Unit number in I/O statement too large" }
! PR31201  Unit number in I/O statement too large
! Test case from PR
      integer(kind=8)  :: k= 2_8**36 + 10
      integer(kind=4)  :: j= 10
      logical  ex,op
      INQUIRE(unit=k, exist=ex,opened=op)
      print *, ex, op
      IF (ex) THEN
         OPEN(unit=k)
         INQUIRE(unit=j, opened=op)
         IF (op) CALL ABORT()
      ENDIF
      print *, k
      close(k)
      end