gcc/testsuite/gfortran.dg/pr107068.f90

   1 ! { dg-do run }
   2 program test
   3   implicit none
   4   integer :: error
   5   logical, dimension(3,3) :: flc,flp
   6   namelist/inputdata/flc, flp
   7
   8   flc = .false.
   9   flp = .false.
  10
  11   open(10, file="inputfile")
  12   write(10,*) "&INPUTDATA"
  13   write(10,*) " FLC = T, "
  14   write(10,*) " FLP(1,2) = T,"
  15   write(10,*) "/"
  16   rewind(10)
  17   !write(*, nml=inputdata)
  18   !open(10,file="inputfile")
  19   read(10,inputdata,iostat=error)
  20   close(10, status='delete')
  21   if (error /= 0) stop 20
  22 end program test