Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
namelist_68.f90
blob: 903f9fbbc028584d64dff5534cab339b43efa5a3 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR47154
END
=
does
not
work
in
namelist read
program foo
real
::
a
namelist
/
b
/
a
open
(
10
,
status
=
"scratch"
)
read
(
10
,
nml
=
b
,
end
=
100
)
100
continue
end