------- Additional Comments From tobi at gcc dot gnu dot org  2005-03-19 01:35 
-------
Further reduction: segfaults at -O2, runs at -O0.
  real vx(1)
  num=2
  do i=1,num
     call advance(vx)
  end do
contains
  subroutine advance(bodies)
    real, dimension(:)::bodies
    bodies = 1.0
  end subroutine advance
end

-- 


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

Reply via email to