gcc/testsuite/gfortran.dg/namelist_50.f90

   1 ! { dg-do run }
   2 ! PR36657 Namelist string constant immediately followed by comment
   3 program gfcbug79
   4   implicit none
   5   integer, parameter :: nnml = 10
   6   character(len=8)  :: model = ""
   7   namelist /NML/       model
   8   open (nnml, status="scratch")
   9   write(nnml,*) "&nml! This is a just comment"
  10   write(nnml,*) "  model='foo'! This is a just comment"
  11   write(nnml,*) "/"
  12   rewind(nnml)
  13   read (nnml, nml=NML)
  14   if (model /= 'foo') call abort
  15   close(nnml)
  16 end program gfcbug79