From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Wed, 25 Jan 2006 01:19:11 +0000 (+0000)
Subject: re PR libfortran/25835 (Segfault or Bad Address error on unformatted sequential READ)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ecc9e67eefe62c0e116f6bda2ee76a6f52d9eb0a;p=gcc.git

re PR libfortran/25835 (Segfault or Bad Address error on unformatted sequential READ)

2006-01-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/25835
	* io/transfer.c (st_read_done): Flush buffers when read is done.

From-SVN: r110200
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 009b044f51d..d19a8ea405a 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 b5b8df45e9c..1d8330fe453 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);