Sign in
llvm
/
llvm-archive
/
f91d1660b4827134c7666ae9637f21a2741d183f
/
.
/
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