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