open_replace.f90

来自「用于进行gcc测试」· F90 代码 · 共 7 行

! 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