From 22b2be06ecd3d6d154fad17e13f49b8a2df6d207 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Mon, 29 May 2006 23:39:53 +0000 Subject: [PATCH] re PR libfortran/27757 (Problems with direct access io) 2006-05-29 Jerry DeLisle PR libgfortran/27757 * io/unix.c (fd_seek): Set active to zero. From-SVN: r114220 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/unix.c | 1 + 2 files changed, 6 insertions(+) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 3ecabcd06abe..227f61b2b556 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2006-05-29 Jerry DeLisle + + PR libgfortran/27757 + * io/unix.c (fd_seek): Set active to zero. + 2006-05-29 Jerry DeLisle PR libgfortran/27634 diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 93f4ea692d3d..560047f88f8e 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -569,6 +569,7 @@ fd_seek (unix_stream * s, gfc_offset offset) } s->physical_offset = s->logical_offset = offset; + s->active = 0; return (lseek (s->fd, offset, SEEK_SET) < 0) ? FAILURE : SUCCESS; }