[Fwd: [patch,libgfortran] 4.2 Regression fix, pr31099 returns]

[Jerry DeLisle]

Forgot to copy patches list.

-------- Original Message --------
Subject: [patch,libgfortran] 4.2 Regression fix, pr31099 returns
Date: Thu, 15 Mar 2007 17:02:49 -0700
From: Jerry DeLisle <jvdelisle@verizon.net>
To: Mark Mitchell <mark@codesourcery.com>
CC: Fortran List <fortran@gcc.gnu.org>

Mark,

May I commit the following trivial patch to 4.2 branch to fix a hole I left in
the patch to PR31099 which is a regression against 4.1?

Status of 4.2 seemed to be in flux so I thought I better ask.

I will chase this with a test case derived from the attached. I think its
important to get this into 4.2 release if at all possible.

Regression tested on x86-64.

Regards,

Jerry

Index: file_pos.c
===================================================================
--- file_pos.c  (revision 122762)
+++ file_pos.c  (working copy)
@@ -311,7 +311,6 @@ st_rewind (st_parameter_filepos *fpp)

            u->endfile = NO_ENDFILE;
            u->current_record = 0;
-         u->bytes_left = 0;
            u->strm_pos = 1;
            u->read_bad = 0;
            test_endfile (u);

-------------- next part --------------
A non-text attachment was scrubbed...
Name: repr31099.f90
Type: text/x-fortran
Size: 204 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20070316/73bcae4d/attachment.bin>