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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr17090.f90] - Blame information for rev 316

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn
! { 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

powered by: WebSVN 2.1.0

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