Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
namelist_53.f90
blob: d4fdf574e0e97af103ba88f9bfb12e6c704f592d [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR36895
Namelist
writing to
internal
files
character
(
30
)
::
line
namelist
/
stuff
/
n
n
=
123
line
=
""
write
(
line
,
nml
=
stuff
)
if
(
line
.
ne
.
"&STUFF N= 123, /"
)
call abort
end