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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [slash_edit.f90] - Blame information for rev 774

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