open_replace.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 6 行

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