1! pr 14904
2! inquire lastrec not correct when two records written
3! with one write statement
4       OPEN(UNIT=10,ACCESS='DIRECT',FORM='FORMATTED',RECL=120)
5 100   FORMAT(I4)
6       WRITE(UNIT=10,REC=1,FMT=100)1
7       INQUIRE(UNIT=10,NEXTREC=J)
8       IF (J.NE.2) THEN
9!          PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 2'
10           STOP 1
11       ENDIF
12 200   FORMAT(I4,/,I4)
13       WRITE(UNIT=10,REC=2,FMT=200)2,3
14       INQUIRE(UNIT=10,NEXTREC=J)
15       IF (J.NE.4) THEN
16!          PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 4'
17           STOP 2
18       ENDIF
19       CLOSE(UNIT=10,STATUS='DELETE')
20       END
21
22