From c5d4a557f5732fedd7e5913e2a2e44e669b76052 Mon Sep 17 00:00:00 2001
From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 25 Jan 2006 01:19:11 +0000
Subject: [PATCH] 2006-01-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25835
* io/transfer.c (st_read_done): Flush buffers when read is done.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@110200 138bc75d-0d04-0410-961f-82ee72b054a4
---
libgfortran/ChangeLog | 5 +++++
libgfortran/io/transfer.c | 1 +
2 files changed, 6 insertions(+)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 009b044f51df..d19a8ea405a3 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libgfortran/25835
+ * io/transfer.c (st_read_done): Flush buffers when read is done.
+
2006-01-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25697
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index b5b8df45e9cf..1d8330fe453d 100644
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -2173,6 +2173,7 @@ export_proto(st_read_done);
void
st_read_done (st_parameter_dt *dtp)
{
+ flush(dtp->u.p.current_unit->s);
finalize_transfer (dtp);
free_format_data (dtp);
free_ionml (dtp);
--
GitLab