summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/execute/inquire_2.f90
blob: 48105170248de1857930b4e3f95c9014b2afc221 (plain)
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