summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/execute/open_replace.f90
blob: 11d0d09461ab0fb7745f8cc8856a14458ab576a6 (plain)
1
2
3
4
5
6
! pr 16196
! open with 'REPLACE' creates the file if it does not exist.
      PROGRAM iobug
      OPEN(UNIT=10,FILE='gfcoutput.txt',status='REPLACE')
      CLOSE(10,status='DELETE')
      END PROGRAM iobug