gcc/testsuite/gfortran.dg/namelist_44.f90

   1 ! { dg-do run { target fd_truncate } }
   2 !
   3 ! PR fortran/34530
   4 !
   5 ! Skipping over comment line was not working
   6 !
   7 ! Test case contributed by Harald Anlauf.
   8 !
   9 program 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)
  29 end program gfcbug77