URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [inquire_2.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! PR 14837`	`! PR 14837`
`INTEGER UNIT`	`INTEGER UNIT`
`OPEN(FILE='CSEQ', UNIT=23)`	`OPEN(FILE='CSEQ', UNIT=23)`
`INQUIRE(FILE='CSEQ',NUMBER=UNIT)`	`INQUIRE(FILE='CSEQ',NUMBER=UNIT)`
`IF (UNIT.NE.23) CALL ABORT`	`IF (UNIT.NE.23) CALL ABORT`
`CLOSE(UNIT, STATUS='DELETE')`	`CLOSE(UNIT, STATUS='DELETE')`
`END`	`END`