From 22b2be06ecd3d6d154fad17e13f49b8a2df6d207 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Mon, 29 May 2006 23:39:53 +0000 Subject: 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/io/unix.c | 1 + 1 file changed, 1 insertion(+) (limited to 'libgfortran/io') diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 93f4ea6..560047f 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; } -- cgit v1.1