From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Mon, 29 May 2006 23:39:53 +0000 (+0000)
Subject: re PR libfortran/27757 (Problems with direct access io)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=22b2be06ecd3d6d154fad17e13f49b8a2df6d207;p=gcc.git

re PR libfortran/27757 (Problems with direct access io)

2006-05-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/27757
	* io/unix.c (fd_seek): Set active to zero.

From-SVN: r114220
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 3ecabcd06ab..227f61b2b55 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/27757
+	* io/unix.c (fd_seek): Set active to zero.
+
 2006-05-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/27634
diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c
index 93f4ea692d3..560047f88f8 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;
 }