URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr17090.f90] - Rev 12
Compare with Previous | Blame | View Log
! { 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