inquire_2.f90

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

! PR 14837
      INTEGER UNIT
      OPEN(FILE='CSEQ', UNIT=23)
      INQUIRE(FILE='CSEQ',NUMBER=UNIT)
      IF (UNIT.NE.23) CALL ABORT
      CLOSE(UNIT, STATUS='DELETE')
      END