1! { dg-do run } 2! PR36657 Namelist string constant immediately followed by comment 3program 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) 16end program gfcbug79 17