OSDN Git Service

2007-03-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 9 Mar 2007 21:51:39 +0000 (21:51 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 9 Mar 2007 21:51:39 +0000 (21:51 +0000)
commitfd4e76d2eaf12c314869a4ed5813b67ea4e1026a
treef373d27e1481d619ffecd03c0e976bc2f878ccbe
parent50819eed9737858b7c703e039bfea742ba8869e5
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122763 138bc75d-0d04-0410-961f-82ee72b054a4
libgfortran/ChangeLog
libgfortran/io/open.c
libgfortran/io/transfer.c