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

libgfortran/ChangeLog

+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

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