28 lines
603 B
Fortran
28 lines
603 B
Fortran
! { dg-do run }
|
|
! PR36676 Namelist comment problems
|
|
! test case from PR, reduced by Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
program mem_nml
|
|
implicit none
|
|
integer, save :: nxc
|
|
nxc = 0
|
|
call readNamelist()
|
|
contains
|
|
subroutine readNamelist()
|
|
implicit none
|
|
namelist /INPUT/ nxc
|
|
open(unit = 101, status="scratch")
|
|
write(101,'(a)')"&INPUT"
|
|
write(101,'(a)')""
|
|
write(101,'(a)')"!"
|
|
write(101,'(a)')"!"
|
|
write(101,'(a)')"!"
|
|
write(101,'(a)')"nxc = 100"
|
|
write(101,'(a)')"&END"
|
|
rewind(101)
|
|
read(unit = 101, nml = INPUT)
|
|
if (nxc /= 100) call abort
|
|
close(unit = 101)
|
|
endsubroutine
|
|
end program mem_nml
|
|
|