------- Additional Comments From tobi at gcc dot gnu dot org  2005-03-19 01:47 
-------
The failure is dependent on the function being a nested function, the following
doesn't segfault at -O2:
  subroutine advance(bodies)
    real, dimension(:)::bodies
    bodies = 1.0
  end subroutine advance
interface
  subroutine advance(bodies)
    real, dimension(:)::bodies
  end subroutine advance
end interface
  real vx(1)
  num=2
  do i=1,num
     call advance(vx)
  end do
end


-- 


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

Reply via email to