| ! pr 14904 | |
| ! inquire lastrec not correct when two records written | |
| ! with one write statement | |
| OPEN(UNIT=10,ACCESS='DIRECT',FORM='FORMATTED',RECL=120) | |
| 100 FORMAT(I4) | |
| WRITE(UNIT=10,REC=1,FMT=100)1 | |
| INQUIRE(UNIT=10,NEXTREC=J) | |
| IF (J.NE.2) THEN | |
| ! PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 2' | |
| CALL ABORT | |
| ENDIF | |
| 200 FORMAT(I4,/,I4) | |
| WRITE(UNIT=10,REC=2,FMT=200)2,3 | |
| INQUIRE(UNIT=10,NEXTREC=J) | |
| IF (J.NE.4) THEN | |
| ! PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 4' | |
| CALL ABORT | |
| ENDIF | |
| CLOSE(UNIT=10,STATUS='DELETE') | |
| END | |