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
7