Sign in
llvm
/
llvm-archive
/
089ca8750d7cd1f1ec96968922bf4bcfe223bb3a
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
inquire_1.f90
blob: 492f74476d3898c6454131dbb4255a24fc720f67 [
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
END