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.fortran-torture/] [execute/] [slash_edit.f90] - Blame information for rev 303

Line No.	Rev	Author	Line
1	303	jeremybenn	`! pr 14762 - '/' not working in format`
2			`INTEGER N(5)`
3			`DATA N/1,2,3,4,5/`
4			`OPEN(UNIT=7)`
5			`100 FORMAT(I4)`
6			`WRITE(7,100)N`
7			`CLOSE(7)`
8			`OPEN(7)`
9			`200 FORMAT(I4,///I4)`
10			`READ(7,200)I,J`
11			`CLOSE(7, STATUS='DELETE')`
12			`IF (I.NE.1) CALL ABORT`
13			`IF (J.NE.4) CALL ABORT`
14			`END`