1! { dg-do run } 2! PR36895 Namelist writing to internal files 3 character(30) :: line 4 namelist /stuff/ n 5 n = 123 6 line = "" 7 write(line,nml=stuff) 8 if (line.ne."&STUFF N=123 , /") print *, line 9 end 10