2009-11-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
commit97bbbb28e5b1c1eb2ea648cb528a55874874cae5
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 19 Nov 2009 04:50:04 +0000 (19 04:50 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 19 Nov 2009 04:50:04 +0000 (19 04:50 +0000)
tree8756c0b9e7d7130add2cccaba032e0e9eff9d912
parentb3f07247f161bc56de9554ec795e1c3c1a92e4b6
2009-11-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

PR libgfortran/42090
* io/transfer.c (skip_record): Set bytes_left_subrecord to zero after
skipping the remaining bytes in the record.
(next_record_r): Call skip_record with the number of bytes_left to be
skipped.

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