re PR fortran/39782 (IO depends on uninitialised value)

2009-04-18  Janne Blomqvist  <jb@gcc.gnu.org>

	PR libfortran/39782
	* io/transfer.c (data_transfer_init): Don't flush before seek.
	(finalize_transfer): Remove extra flush.

From-SVN: r146308
This commit is contained in:
Janne Blomqvist 2009-04-18 13:05:34 +03:00
parent 8dd07c4158
commit 0a629857bc
2 changed files with 6 additions and 6 deletions

View File

@ -1,3 +1,9 @@
2009-04-18 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/39782
* io/transfer.c (data_transfer_init): Don't flush before seek.
(finalize_transfer): Remove extra flush.
2009-04-17 Janne Blomqvist <jb@gcc.gnu.org>
* io/io.h (is_preconnected): Remove prototype.

View File

@ -2332,7 +2332,6 @@ data_transfer_init (st_parameter_dt *dtp, int read_flag)
if (dtp->pos != dtp->u.p.current_unit->strm_pos)
{
fbuf_flush (dtp->u.p.current_unit, dtp->u.p.mode);
sflush (dtp->u.p.current_unit->s);
if (sseek (dtp->u.p.current_unit->s, dtp->pos - 1, SEEK_SET) < 0)
{
generate_error (&dtp->common, LIBERROR_OS, NULL);
@ -3143,11 +3142,6 @@ finalize_transfer (st_parameter_dt *dtp)
&& dtp->u.p.advance_status != ADVANCE_NO)
next_record (dtp, 1);
if (dtp->u.p.current_unit->flags.form == FORM_UNFORMATTED
&& stell (dtp->u.p.current_unit->s) >= dtp->rec)
{
sflush (dtp->u.p.current_unit->s);
}
return;
}