[Bug fortran/30672] Internal compiler error: segment violation

[kargl at gcc dot gnu dot org]

------- Comment #6 from kargl at gcc dot gnu dot org  2007-02-02 00:12 -------
Further reduction is possible.

subroutine dynamic(ndim, kv)
   implicit none
   integer :: ndim
   real :: kvf(3,3), kv(3,3)
   if (ndim .eq. 3) then
      call kvector3Df(kvf)
   else
      kvf(1:3,1:3) = kv(1:3,1:3)
   end if
end subroutine dynamic


-- 


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