mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
10 lines
216 B
Fortran
10 lines
216 B
Fortran
! { 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
|