! 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) STOP 1 | |
READ(UNIT=9,REC=1) MVI | |
INQUIRE(UNIT=9,NEXTREC=NREC) | |
IF (NREC.NE.2) STOP 2 | |
! PRINT*,NREC | |
CLOSE(UNIT=9,STATUS='DELETE') | |
END | |