1! pr14836
2       OPEN(UNIT=9, ACCESS='DIRECT', RECL=80, FORM='UNFORMATTED')
3       INQUIRE(UNIT=9,NEXTREC=NREC)
4       WRITE(UNIT=9,REC=5) 1
5       INQUIRE(UNIT=9,NEXTREC=NREC)
6!      PRINT*,NREC
7       IF (NREC.NE.6) STOP 1
8       READ(UNIT=9,REC=1) MVI
9       INQUIRE(UNIT=9,NEXTREC=NREC)
10       IF (NREC.NE.2) STOP 2
11!      PRINT*,NREC
12       CLOSE(UNIT=9,STATUS='DELETE')
13       END
14
15