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 3ecabcd06abe2ccc27503539a3af3fabf4bb4eb6..227f61b2b556a933337e4a9f974107d9dc748b47 100644 (file)
--- 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 93f4ea692d3d9f4966f2c4f547f5d7a67d07a09c..560047f88f8e9aebe86594f9756089117f640254 100644 (file)
--- 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;
 }