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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr19216.f] - Blame information for rev 774

Line No.	Rev	Author	Line
1	694	jeremybenn	`! PR libfortran/19216`
2			`! { dg-do run }`
3			`integer dat(3), i, j`
4			`data dat / 3,2,1 /`
5
6			`open (20, status='scratch')`
7			`write (20,'(A)') '/ 10 20 30'`
8			`write (20,'(A)') '1 2 3 4'`
9			`write (20,'(A)') '5 6 7 8'`
10			`rewind (20)`
11			`read (20,*) (dat(i), i=1,3)`
12			`if (dat(1).ne.3 .or. dat(2).ne.2 .or. dat(3).ne.1) call abort`
13			`read (20,*) I,J`
14			`if (i .ne. 1 .or. j .ne. 2) call abort`
15			`read (20,*) I,J`
16			`if (i .ne. 5 .or. j .ne. 6) call abort`
17			`close(20)`
18			`end`