[Bug libfortran/25463] T edit descriptor and ADVANCE="no"

[jvdelisle at gcc dot gnu dot org]

------- Comment #1 from jvdelisle at gcc dot gnu dot org  2005-12-17 21:33 -------
This simple patch appears to fix this:  The stement moved needs to be executed
before the return is called.

===================================================================
*** io/transfer.c       (revision 108671)
--- io/transfer.c       (working copy)
*************** finalize_transfer (st_parameter_dt *dtp)
*** 2017,2022 ****
--- 2017,2023 ----
      finish_list_read (dtp);
    else
      {
+       dtp->u.p.current_unit->current_record = 0;
        if (dtp->u.p.advance_status == ADVANCE_NO || dtp->u.p.seen_dollar)
        {
          /* Most systems buffer lines, so force the partial record
*************** finalize_transfer (st_parameter_dt *dtp)
*** 2027,2033 ****
        }

        next_record (dtp, 1);
-       dtp->u.p.current_unit->current_record = 0;
      }

    sfree (dtp->u.p.current_unit->s);
--- 2028,2033 ----


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |jvdelisle at gcc dot gnu dot
                   |dot org                     |org
             Status|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2005-12-17 21:33:29
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25463