[patch,libfortran] [4.1 only, regression] Reading after ERROR_SHORT_RECORD

[Jerry DeLisle]

I will commit the following under obvious rule.  This is a backport from 4.3 
adjusted slightly for 4.1.

Regression tested on x86-64-gnu-linux.

Regards,

Jerry

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

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

Index: io/transfer.c
===================================================================
*** io/transfer.c       (revision 124608)
--- io/transfer.c       (working copy)
*************** read_block_direct (st_parameter_dt *dtp,
*** 347,352 ****
--- 347,354 ----

     if (short_record)
       {
+       dtp->u.p.current_unit->current_record = 0;
+       next_record (dtp, 0);
         generate_error (&dtp->common, ERROR_SHORT_RECORD, NULL);
         return;
       }