Sign in
llvm
/
llvm-archive
/
637ca9ee6054f3f3bc2b89a380b8978bb5ea4b19
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
inquire_2.f90
blob: bc7ea74c39afaaec7c543396faa274e83408be31 [
file
] [
log
] [
blame
]
!
PR
14837
INTEGER UNIT
OPEN
(
FILE
=
'CSEQ'
,
UNIT
=
23
)
INQUIRE
(
FILE
=
'CSEQ'
,
NUMBER
=
UNIT
)
IF
(
UNIT
.
NE
.
23
)
CALL ABORT
END