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

[fxcoudert at gcc dot gnu dot org]

------- Comment #3 from fxcoudert at gcc dot gnu dot org  2006-02-22 20:50 
-------
Confirmed on i686-linux (trunk) too:

$ cat testio.f 
      integer :: a(8476)
      a(1) = 1
      write(2) a
      a(1) = 2
      write(2) a
      rewind 2
      read(2) a
      write(*,*) a(1)
      read(2) a
      write(*,*) a(1)
      end
$ g77 testio.f && ./a.out
 1
 2
$ gfortran testio.f && ./a.out
           1
           1


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |fxcoudert at gcc dot gnu dot
                   |                            |org
   Last reconfirmed|2006-02-22 18:11:37         |2006-02-22 20:50:04
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26423