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

libgfortran/ChangeLog

 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.

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;
 }