gcc/testsuite/gfortran.dg/pr17090.f90

   1 ! { dg-do run }
   2 ! pr 17090 Runtime I/O error
   3 ! bdavis9659@comcast.net
   4 ! 9/12/2004
   5 ! list directed read with spaces between the last data item and the
   6 ! eoln cause missed data items.
   7 ! this is a libgfortran test case
   8        implicit none
   9        integer i,sum
  10        real a(14)
  11        data sum / 0 /
  12        open(unit=9,status='SCRATCH')
  13        write(9,*)1.0,2.0,3.0,4.0,'      '
  14        write(9,*)5.0,6.0,7.0,8.0,'      '
  15        write(9,*)9.0,10.0,11.0,12.0,13.0,14.0,'      '
  16        rewind(9)
  17        read(9,*)a
  18        do i = 1,14
  19           sum = sum + a(i)
  20        end do
  21        if (sum.ne.105) call abort
  22        end