1! { dg-do run }
2! PR36676 Namelist comment problems
3! test case from PR, reduced by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4program mem_nml
5    implicit none
6    integer, save :: nxc
7    nxc = 0
8    call readNamelist()
9contains
10subroutine readNamelist()
11implicit none
12namelist /INPUT/    nxc
13open(unit = 101, status="scratch")
14write(101,'(a)')"&INPUT"
15write(101,'(a)')""
16write(101,'(a)')"!"
17write(101,'(a)')"!"
18write(101,'(a)')"!"
19write(101,'(a)')"nxc = 100"
20write(101,'(a)')"&END"
21rewind(101)
22read(unit = 101, nml = INPUT)
23if (nxc /= 100) call abort
24close(unit = 101)
25endsubroutine
26end program mem_nml
27
28