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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114220 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 3ecabcd..227f61b 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,5 +1,10 @@
 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
        * io/format.c (parse_format_list): Allow missing period in format only
        if -std=legacy.

diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c
index 93f4ea6..560047f 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;
 }