Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
torture
/
execute
/
inquire_2.f90
blob: ee57a1553be26b02d47f278f100e0ac292275113 [
file
] [
log
] [
blame
]
!
PR
14837
INTEGER UNIT
OPEN
(
FILE
=
'CSEQ'
,
UNIT
=
23
)
INQUIRE
(
FILE
=
'CSEQ'
,
NUMBER
=
UNIT
)
IF
(
UNIT
.
NE
.
23
)
STOP
1
CLOSE
(
UNIT
,
STATUS
=
'DELETE'
)
END