Sign in
llvm
/
llvm-archive
/
cfaec05de39adb34392b8c7b1ad4b32abbf3663d
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
inquire_1.f90
blob: 8deb6b863b5dbdb5ef45f573d1ce211b71fddd1f [
file
] [
log
] [
blame
]
!
PR
14831
CHARACTER
*
4
BLANK
CHARACTER
*
10
ACCESS
OPEN
(
UNIT
=
9
,
ACCESS
=
'SEQUENTIAL'
)
INQUIRE
(
UNIT
=
9
,
ACCESS
=
ACCESS
,
BLANK
=
BLANK
)
IF
(
BLANK
.
NE
.
'NULL'
)
CALL ABORT
IF
(
ACCESS
.
NE
.
'SEQUENTIAL'
)
CALL ABORT
CLOSE
(
UNIT
=
9
,
STATUS
=
'DELETE'
)
END