blob: ee57a1553be26b02d47f278f100e0ac292275113 [file] [log] [blame]
! PR 14837
INTEGER UNIT
OPEN(FILE='CSEQ', UNIT=23)
INQUIRE(FILE='CSEQ',NUMBER=UNIT)
IF (UNIT.NE.23) STOP 1
CLOSE(UNIT, STATUS='DELETE')
END