gcc/testsuite/gfortran.dg/namelist_53.f90

   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,  /") call abort
   9   end