------- Comment #7 from jvdelisle at gcc dot gnu dot org 2006-05-27 02:35
-------
The following patch causes no regressions. I can't reproduce the problem here,
but I have a hunch.
Ray, can you try this and see if it resolves the problem?
Thanks for tests and reports.
Index: io/transfer.c
===================================================================
*** io/transfer.c (revision 114105)
--- io/transfer.c (working copy)
*************** st_write_done (st_parameter_dt *dtp)
*** 2416,2421 ****
--- 2416,2425 ----
break;
}
+ if (dtp->u.p.current_unit != NULL
+ && dtp->u.p.current_unit->flags.access == ACCESS_DIRECT)
+ flush (dtp->u.p.current_unit->s);
+
free_format_data (dtp);
free_ionml (dtp);
if (dtp->u.p.scratch != NULL)
--
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 |2006-05-27 02:35:03
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27757
