?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
PR rtl-optimization/82913
[official-gcc.git] / gcc / testsuite / gfortran.fortran-torture / execute / open_replace.f90
blob11d0d09461ab0fb7745f8cc8856a14458ab576a6
1 ! pr 16196
2 ! open with 'REPLACE' creates the file if it does not exist.
3 PROGRAM iobug
4 OPEN(UNIT=10,FILE='gfcoutput.txt',status='REPLACE')
5 CLOSE(10,status='DELETE')
6 END PROGRAM iobug
Mirror of the offical gcc git repository hosted at gcc.gnu.org