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/] [slash_1.f90] - Blame information for rev 313

Line No.	Rev	Author	Line
1	302	jeremybenn	`! PR libfortran/22170`
2			`! { dg-do run }`
3			`integer i`
4			`open (10,status='scratch')`
5			`write (10,'(A,2/,A)') '12', '17'`
6			`rewind (10)`
7			`read (10,'(I2)') i`
8			`if (i /= 12) call abort`
9			`read (10,'(I2)') i`
10			`if (i /= 0) call abort`
11			`read (10,'(I2)') i`
12			`if (i /= 17) call abort`
13			`end`