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/] [open_replace.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! pr 16196`	`! pr 16196`
`! open with 'REPLACE' creates the file if it does not exist.`	`! open with 'REPLACE' creates the file if it does not exist.`
`PROGRAM iobug`	`PROGRAM iobug`
`OPEN(UNIT=10,FILE='gfcoutput.txt',status='REPLACE')`	`OPEN(UNIT=10,FILE='gfcoutput.txt',status='REPLACE')`
`CLOSE(10,status='DELETE')`	`CLOSE(10,status='DELETE')`
`END PROGRAM iobug`	`END PROGRAM iobug`