re PR libfortran/31409 (Reading after ERROR_SHORT_RECORD)

2007-05-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/31409
	* io/transfer.c (read_block_direct): Backport from 4.3 trunk.

From-SVN: r124612

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 6174425d09b0ad03eff98a4b3b62eae637585f75..705303adf5b405ca5f4e365d6f11d90baa9d68ed 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libfortran/31409
+       * io/transfer.c (read_block_direct): Backport from 4.3 trunk.
+
 2007-05-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libfortran/31880

diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index a3b337c789fda0cd92317d01a423db89efa049d6..124c33dfc0093f854608f08827bdbc1fb3268b40 100644 (file)
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -347,6 +347,8 @@ read_block_direct (st_parameter_dt *dtp, void *buf, size_t *nbytes)
 
   if (short_record)
     {
+      dtp->u.p.current_unit->current_record = 0;
+      next_record (dtp, 0);
       generate_error (&dtp->common, ERROR_SHORT_RECORD, NULL);
       return;
     }