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