OSDN Git Service

2006-05-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 29 May 2006 23:39:53 +0000 (23:39 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 29 May 2006 23:39:53 +0000 (23:39 +0000)
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

libgfortran/ChangeLog
libgfortran/io/unix.c

index 3ecabcd..227f61b 100644 (file)
@@ -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.
index 93f4ea6..560047f 100644 (file)
@@ -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;
 }