------- Comment #7 from kargl at gcc dot gnu dot org 2008-03-20 03:36 -------
With a clean trunk as of 2 minutes ago, this program
program streamtest
implicit none
character(1) :: lf = char(10)
character(1) :: tchar
integer :: i,j,k
integer, parameter :: lines = 5231
open(10, file="teststream", access="stream", form="formatted")
do i=1,lines
do j=0,9
write(10,"(i5)") j
end do
if (mod(i,23) == 0) print *, 'i = ', i
end do
close(10)
close(10,status="delete")
end program streamtest
yields
~/work/bin/gfortran -static -O -o z streamio_4.f90
time ./z
158.72 real 0.46 user 5.90 sys
If I revert Jerry's commit,
svn merge -r 132512:132511 .
I then see
~/work/bin/gfortran -static -O -o z streamio_4.f90
time ./z
0.94 real 0.64 user 0.26 sys
158.72 / 0.94 = 169
Any chance, you'll revert the offending patch?
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35632
