2006-09-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / libgfortran / io / file_pos.c

diff --git a/libgfortran/io/file_pos.c b/libgfortran/io/file_pos.c
index 3f6a332..979dec5 100644 (file)
--- a/libgfortran/io/file_pos.c
+++ b/libgfortran/io/file_pos.c
@@ -312,6 +312,7 @@ st_rewind (st_parameter_filepos *fpp)
          u->endfile = NO_ENDFILE;
          u->current_record = 0;
          u->bytes_left = 0;
+         u->strm_pos = 1;
          u->read_bad = 0;
          test_endfile (u);
        }