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