gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90


1
2
3
4
5
6
7

! 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