gcc/testsuite/gfortran.dg/list_read_1.f90

   1 ! { dg-do run }
   2 ! Program to test terminators in list-directed input
   3 program list_read_1
   4   character(len=5) :: s
   5
   6   open (unit=11, status="SCRATCH")
   7   ! The / terminator was causing the next value to be skipped.
   8   write (11, '(a)') " 42 /"
   9   write (11, '(a)') " 43"
  10   write (11, '(a)') " 44"
  11
  12   rewind(11)
  13
  14   read (11, *) i
  15   if (i .ne. 42) STOP 1
  16   read (11, *) i
  17   if (i .ne. 43) STOP 2
  18   read (11, *) i
  19   if (i .ne. 44) STOP 3
  20   close (11)
  21 end
  22