blob: 11a946349c95b5f1fc9670aabc1259b8b00d3d75 [file] [log] [blame]
! { 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) STOP 1
ENDIF
print *, k
close(k)
end