Sign in
gnu
/
gcc
/
refs/heads/releases/gcc-4.8
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
iostat_2.f90
blob: afda93e8092d7e8560a5223b810b4db5ee69d257 [
file
] [
log
] [
blame
]
!
PR libfortran
/
23784
!
{
dg
-
do
run
}
integer i
close
(
10
,
status
=
"whatever"
,
iostat
=
i
)
!
{
dg
-
warning
"STATUS specifier in CLOSE statement.*has invalid value"
}
if
(
i
==
0
)
call abort
()
write
(
17
,*)
'foo'
close
(
17
,
status
=
"delete"
)
end