This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[patch,libgfortran][4.1/4.2 Regression] Problems with direct access io
- From: Jerry DeLisle <jvdelisle at verizon dot net>
- To: Fortran List <fortran at gcc dot gnu dot org>, gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Mon, 29 May 2006 14:23:16 -0700
- Subject: [patch,libgfortran][4.1/4.2 Regression] Problems with direct access io
Hi all,
The following fixes this bug. I would like to commit this right away to 4.1 and
4.2, under the simple rule. I will convert the test case in the PR
appropriately to call abort instead of print out a message.
OK?
2006-05-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/27757
* io/unix.c (fd_seek): Set active to zero.
Index: io/unix.c
===================================================================
*** io/unix.c (revision 114207)
--- io/unix.c (working copy)
*************** fd_seek (unix_stream * s, gfc_offset off
*** 569,574 ****
--- 569,575 ----
}
s->physical_offset = s->logical_offset = offset;
+ s->active = 0;
return (lseek (s->fd, offset, SEEK_SET) < 0) ? FAILURE : SUCCESS;
}