Sign in
llvm
/
llvm-archive
/
f91d1660b4827134c7666ae9637f21a2741d183f
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
pr20163-2.f
blob: 0638aeaf9ddbe35b24436bc31565185a81323056 [
file
] [
log
] [
blame
]
open
(
10
,
status
=
"foo"
,
err
=
100
)
!
{
dg
-
warning
"STATUS specifier in OPEN statement .* has invalid value"
}
call abort
100
continue
open
(
10
,
status
=
"scratch"
)
end