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