[gfortran] Patch for PR 14836-INQUIRE specifier NEXTREC not correct for direct access files-
Paul Brook
paul@codesourcery.com
Sat Apr 3 18:00:00 GMT 2004
> ! pr14836
> OPEN(UNIT=9, ACCESS='DIRECT', RECL=80, FORM='UNFORMATTED')
> INQUIRE(UNIT=9,NEXTREC=NREC)
> WRITE(UNIT=9,REC=5) 1
> INQUIRE(UNIT=9,NEXTREC=NREC)
> PRINT*,NREC
Testcases should not produce output.
> IF (NREC.NE.6) CALL ABORT
> READ(UNIT=9,REC=1) MVI
Likewise.
> INQUIRE(UNIT=9,NEXTREC=NREC)
> IF (NREC.NE.2) CALL ABORT
> PRINT*,NREC
> END
>
> 2004-04-02 Bud Davis <bdavis9659@comcast.net>
>
> PR 14836
> io/transfer.c (next_record): Update last_record for DIRECT.
ChangeLog entries should have a * before the filename.
Ok, with minor nits above.
Paul
More information about the Fortran
mailing list