------- Comment #2 from kargl at gcc dot gnu dot org 2008-03-19 04:09 -------
Hmmm, reverting Hans-Peter's patch does not fix the problem. Apologies
to Hans-Peter for jumping the gun.
Going back further in time, reverting r132512 fixes the problem with
streamio_4.f90, but
leads to
Running /usr/home/kargl/gcc/trunk/gcc/testsuite/gfortran.dg/dg.exp ...
FAIL: gfortran.dg/streamio_15.f90 -O0 execution test
FAIL: gfortran.dg/streamio_15.f90 -O1 execution test
FAIL: gfortran.dg/streamio_15.f90 -O2 execution test
FAIL: gfortran.dg/streamio_15.f90 -O3 -fomit-frame-pointer execution test
FAIL: gfortran.dg/streamio_15.f90 -O3 -fomit-frame-pointer -funroll-loops
execution test
FAIL: gfortran.dg/streamio_15.f90 -O3 -fomit-frame-pointer -funroll-all-loops
-finline-functions execution test
FAIL: gfortran.dg/streamio_15.f90 -O3 -g execution test
FAIL: gfortran.dg/streamio_15.f90 -Os execution test
This revision is 2008-02-20 Jerry DeLisle <[EMAIL PROTECTED]>
PR libfortran/35132
* io/transfer.c (next_record_w): Truncate after the last record for
STREAM I/O.
PR libfortran/34954
* io/transfer.c (data_transfer_init): Initialize dtp->rec if writing.
PR libfortran/34974
* io/transfer.c (formatted_transfer_scalar): Flush the buffer if skips
is less than zero. (next_record_w): Use sseek to position the file to
the max position reached.
--
kargl at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC|hp at axis dot com |
GCC target triplet| i386-unknown-freebsd8.0 |i386-unknown-freebsd8.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35632
