gcc/testsuite/gfortran.dg/namelist_73.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/50109
   4 !
   5 ! Contributed by Jim Hanson
   6 !
   7       program namelist_test
   8
   9       integer nfp
  10       namelist /indata/ nfp
  11
  12       nfp = 99
  13       open(unit=4, status='scratch')
  14       write(4,'(a)') '$indata'
  15       write(4,'(a)') 'NFP = 5,'
  16       write(4,'(a)') "!  "
  17       write(4,'(a)') "! "
  18       write(4,'(a)') "!  "
  19       write(4,'(a)') '/'
  20
  21       rewind(4)
  22       read (4,nml=indata)
  23       close(4)
  24
  25 !      write(*,*) nfp
  26       if (nfp /= 5) call abort()
  27
  28       end