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