------- Comment #8 from dir at lanl dot gov 2006-02-23 15:54 -------
I restore the last version (110201) that I tested just after -
2006-01-24 Jerry DeLisle <[EMAIL PROTECTED]>
PR libgfortran/25835
* io/transfer.c (st_read_done): Flush buffers when read is done.
and it works there -
gfortran -o testio7 testio7.f
[dranta:~/tests/gfortran-D] dir% gfortran -o testio7 testio7.f
[dranta:~/tests/gfortran-D] dir% testio7
1.00000000000000 -1.00000000000000
2.00000000000000 -2.00000000000000
3.00000000000000 -3.00000000000000
4.00000000000000 -4.00000000000000
5.00000000000000 -5.00000000000000
[dranta:~/tests/gfortran-D] dir% gfortran --v
Using built-in specs.
Target: powerpc-apple-darwin8.5.0
Configured with: ../gcc/configure --prefix=/Users/dir/gfortran
--enable-languages=c,f95
Thread model: posix
gcc version 4.2.0 20060125 (experimental)
[dranta:~/tests/gfortran-D] dir% cat testio7.f
program test
implicit real*8 (a-h,o-z)
dimension a(8476)
istoh=8476
do 10 j=1,5
a(1)=j
a(istoh)=-j
write(2)a
10 continue
rewind 2
do 20 i=1,5
read(2)a
write(6,*)a(1),a(istoh)
20 continue
stop
end
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26423
