From ecc9e67eefe62c0e116f6bda2ee76a6f52d9eb0a Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Wed, 25 Jan 2006 01:19:11 +0000 Subject: [PATCH] re PR libfortran/25835 (Segfault or Bad Address error on unformatted sequential READ) 2006-01-24 Jerry DeLisle PR libgfortran/25835 * io/transfer.c (st_read_done): Flush buffers when read is done. From-SVN: r110200 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/transfer.c | 1 + 2 files changed, 6 insertions(+) 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 + + PR libgfortran/25835 + * io/transfer.c (st_read_done): Flush buffers when read is done. + 2006-01-17 Jerry DeLisle 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);