------- 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