Subversion Repositories openrisc_me

! { dg-do run }

! pr 17090 Runtime I/O error

! bdavis9659@comcast.net

! 9/12/2004

! list directed read with spaces between the last data item and the

! eoln cause missed data items.

! this is a libgfortran test case

       implicit none

       integer i,sum

       real a(14)

       data sum / 0 /

       open(unit=9,status='SCRATCH')

       write(9,*)1.0,2.0,3.0,4.0,'      '

       write(9,*)5.0,6.0,7.0,8.0,'      '

       write(9,*)9.0,10.0,11.0,12.0,13.0,14.0,'      '

       rewind(9)

       read(9,*)a

       do i = 1,14

          sum = sum + a(i)

       end do

       if (sum.ne.105) call abort

       end