Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
namelist_53.f90
blob: 9e5692abe6aa6f38a9358a8597afbe2045db2f31 [
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 , /"
)
print
*,
line
end