[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.fortran-torture / execute / inquire_2.f90

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