2 ! PR36657 Namelist string constant immediately followed by comment
5 integer, parameter :: nnml = 10
6 character(len=8) :: 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"
14 if (model /= 'foo') call abort