gcc/testsuite/gfortran.dg/pr18210.f90

   1 ! { dg-do run { target fd_truncate } }
   2 ! Names in upper case and object names starting column 2
   3 ! Based on example provided by thomas.koenig@online.de
   4
   5 program pr18210
   6
   7   real :: a
   8   character*80 :: buffer
   9   namelist /foo/ a
  10
  11   a = 1.4
  12   open (10, status = "scratch")
  13   write (10,foo)
  14   rewind (10)
  15   read (10, '(a)') buffer
  16   if (buffer(2:4) /= "FOO") call abort ()
  17   read (10, '(a)') buffer
  18   if (buffer(1:2) /= " A") call abort ()
  19   close (10)
  20
  21 end program pr18210