! pr14836 | |
OPEN(UNIT=9, ACCESS='DIRECT', RECL=80, FORM='UNFORMATTED') | |
INQUIRE(UNIT=9,NEXTREC=NREC) | |
WRITE(UNIT=9,REC=5) 1 | |
INQUIRE(UNIT=9,NEXTREC=NREC) | |
! PRINT*,NREC | |
IF (NREC.NE.6) CALL ABORT | |
READ(UNIT=9,REC=1) MVI | |
INQUIRE(UNIT=9,NEXTREC=NREC) | |
IF (NREC.NE.2) CALL ABORT | |
! PRINT*,NREC | |
CLOSE(UNIT=9,STATUS='DELETE') | |
END | |