From f4072316a3ef6466ff3b554ca19b14ce4e64eda0 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 9 Mar 2007 21:51:39 +0000 Subject: re PR libfortran/31099 (Runtime error on legal code using RECL) 2007-03-09 Jerry DeLisle PR libgfortran/31099 * io/open.c (new_unit): Initialize bytes_left and recl_subrecord. * io/transfer.c (next_record_w): Set bytes left to record length for sequential unformatted I/O. (next_record_r): Ditto. (read_block_direct): Fix test for exceeding bytes_left. From-SVN: r122763 --- libgfortran/ChangeLog | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'libgfortran/ChangeLog') diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 889a70d..7f90658 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,12 @@ +2007-03-09 Jerry DeLisle + + PR libgfortran/31099 + * io/open.c (new_unit): Initialize bytes_left and recl_subrecord. + * io/transfer.c (next_record_w): Set bytes left to record length for + sequential unformatted I/O. + (next_record_r): Ditto. + (read_block_direct): Fix test for exceeding bytes_left. + 2007-03-08 Daniel Franke PR fortran/30947 -- cgit v1.1