------- Comment #5 from kargl at gcc dot gnu dot org 2007-02-02 00:08 -------
Reduced testcase
module current
integer, save :: ndim
real, save :: kv(3,3)
end module current
subroutine dynamic
use current
implicit none
real :: kvf(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
troutmask:sgk[372] gfc4x -c -O zxc.f90
zxc.f90: In function 'dynamic':
zxc.f90:17: internal compiler error: in operand_equal_p, at fold-const.c:2557
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30672
