inquire_2.f90

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

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