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