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