From e852fe76304b8eb2216cf524c1bbbe7cbd9517ac Mon Sep 17 00:00:00 2001
From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 28 Dec 2005 07:20:19 +0000
Subject: [PATCH] 2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25550
* io/file_pos.c (st_rewind): Reset bytes left so no error occurs in
next_record_r.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@109101 138bc75d-0d04-0410-961f-82ee72b054a4
---
libgfortran/ChangeLog | 6 ++++++
libgfortran/io/file_pos.c | 1 +
2 files changed, 7 insertions(+)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 65be7e725c6d..c9fdb6bc30cb 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libgfortran/25550
+ * io/file_pos.c (st_rewind): Reset bytes left so no error occurs in
+ next_record_r.
+
2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25419
diff --git a/libgfortran/io/file_pos.c b/libgfortran/io/file_pos.c
index 3d7dd9ab8b6c..d9ac1e7f7eda 100644
--- a/libgfortran/io/file_pos.c
+++ b/libgfortran/io/file_pos.c
@@ -255,6 +255,7 @@ st_rewind (st_parameter_filepos *fpp)
u->endfile = NO_ENDFILE;
u->current_record = 0;
+ u->bytes_left = 0;
test_endfile (u);
}
/* Update position for INQUIRE. */
--
GitLab