blob: 11d0d09461ab0fb7745f8cc8856a14458ab576a6 [file] [log] [blame]
! 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