PR libfortran/23154
* io/transfer.c (data_transfer_init): Initialize
current_unit->bytes_left for a read.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102893
138bc75d-0d04-0410-961f-
82ee72b054a4
+2005-08-08 Jerry DeLisle <jvdelisle@verizon.net>
+
+ PR libfortran/23154
+ * io/transfer.c (data_transfer_init): Initialize
+ current_unit->bytes_left for a read.
+
2005-08-07 Janne Blomqvist <jblomqvi@cc.hut.fi>
PR fortran/22390
{
current_unit->recl = file_length(current_unit->s);
if (g.mode==WRITING)
- empty_internal_buffer (current_unit->s);
+ empty_internal_buffer (current_unit->s);
+ else
+ current_unit->bytes_left = current_unit->recl;
}
/* Check the action. */