5 ! Skipping over comment line was not working
7 ! Test case contributed by Harald Anlauf.
12 character(len=128) :: file = ""
14 namelist /BLACKLIST/ file, default
15 integer, parameter :: nnml = 10
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"
25 read (nnml, nml=BLACKLIST)
27 if(file /= "myfile" .or. default) call abort()
28 ! write (*,nml=BLACKLIST)