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