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 CALL ABORT 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 CALL ABORT 18 ENDIF 19 CLOSE(UNIT=10,STATUS='DELETE') 20 END 21 22