Sign in
gnu
/
gcc
/
e5cfb9cac1d7aba9a8ea73bfe7922cfaff9d61f3
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
inquire_1.f90
blob: 3e19a3c015b542ee60c771aacb6c343069326ec1 [
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'
)
STOP
1
IF
(
ACCESS
.
NE
.
'SEQUENTIAL'
)
STOP
2
CLOSE
(
UNIT
=
9
,
STATUS
=
'DELETE'
)
END