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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [slash_1.f90] - Blame information for rev 694

Line No.	Rev	Author	Line
1	694	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`