This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [gfortran] Patch for PR 14836-INQUIRE specifier NEXTREC not correct for direct access files-
- From: Paul Brook <paul at codesourcery dot com>
- To: fortran at gcc dot gnu dot org
- Cc: Bud Davis <bdavis9659 at comcast dot net>, gcc-patches at gcc dot gnu dot org
- Date: Sat, 3 Apr 2004 17:48:03 +0100
- Subject: Re: [gfortran] Patch for PR 14836-INQUIRE specifier NEXTREC not correct for direct access files-
- Organization: CodeSourcery
- References: <1081009214.21542.18.camel@localhost.localdomain>
> ! 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