]> git.ipfire.org Git - thirdparty/gcc.git/commit
re PR libfortran/31099 (Runtime error on legal code using RECL)
authorJerry DeLisle <jvdelisle@gcc.gnu.org>
Fri, 9 Mar 2007 21:51:39 +0000 (21:51 +0000)
committerJerry DeLisle <jvdelisle@gcc.gnu.org>
Fri, 9 Mar 2007 21:51:39 +0000 (21:51 +0000)
commitf4072316a3ef6466ff3b554ca19b14ce4e64eda0
treef373d27e1481d619ffecd03c0e976bc2f878ccbe
parent7cd4f641a0bbc98177446251888dbd96e3fd12f5
re PR libfortran/31099 (Runtime error on legal code using RECL)

2007-03-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

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
libgfortran/io/open.c
libgfortran/io/transfer.c