1! { dg-do run }
2!
3! PR fortran/34530
4!
5! Skipping over comment line was not working
6!
7! Test case contributed by Harald Anlauf.
8!
9program gfcbug77
10  implicit none
11
12  character(len=128) :: file = ""
13  logical            :: default
14  namelist /BLACKLIST/ file, default
15  integer, parameter :: nnml = 10
16  default = .true.
17
18  open (nnml, file='gfcbug77.nml')
19  write(nnml,*) "&blacklist "           ! The trailing space breaks gfortran
20  write(nnml,*) "  ! This is a comment within the namelist"
21  write(nnml,*) "  file    = 'myfile'"
22  write(nnml,*) "  default = F"
23  write(nnml,*) "/"
24  rewind(nnml)
25  read (nnml, nml=BLACKLIST)
26  close(nnml,status="delete")
27  if(file /= "myfile" .or. default) call abort()
28!  write (*,nml=BLACKLIST)
29end program gfcbug77
30