18 lines
467 B
Fortran
18 lines
467 B
Fortran
! { 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
|