[Bug libfortran/26423] [4.1/4.2 Regression] Error on binary I/O for large array

[dir at lanl dot gov]

------- 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  <jvdelisle@gcc.gnu.org>

        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