summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/large_unit_1.f90
blob: 60e2d1f17e89d0a9a5811c73ef756d64ea17bc74 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
! { 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