gcc/testsuite/gfortran.dg/namelist_80.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/56735
   4 !
   5 ! Contributed by Adam Williams
   6 !
   7         PROGRAM TEST
   8         INTEGER int1,int2,int3
   9         NAMELIST /temp/ int1,int2,int3
  10
  11         int1 = -1; int2 = -2; int3 = -3
  12
  13         OPEN (53, STATUS='scratch')
  14         WRITE (53, '(a)') ' ?'
  15         WRITE (53, '(a)')
  16         WRITE (53, '(a)') '$temp'
  17         WRITE (53, '(a)') ' int1=1'
  18         WRITE (53, '(a)') ' int2=2'
  19         WRITE (53, '(a)') ' int3=3'
  20         WRITE (53, '(a)') '$END'
  21         REWIND(53)
  22
  23         READ (53, temp)
  24         CLOSE (53)
  25
  26         if (int1 /= 1 .or. int2 /= 2 .or. int3 /= 3) call abort()
  27         END PROGRAM