OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr17090.f90] - Rev 694

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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.