------- Comment #2 from burnus at gcc dot gnu dot org 2006-11-13 21:39 -------
Slightly reduced test case:
module gfcbug45
implicit none
type cartesian
real :: x(2)
end type cartesian
contains
subroutine foo (z)
type(cartesian), intent(in) :: z
integer :: i
real :: a
real, parameter :: eps(2) = (/ 1, 2 /)
i = 1
a = sum (eps(i:2) * z%x(1:2))
end subroutine foo
end module gfcbug45
#1 0x00000000004956f7 in gfc_typenode_for_spec (spec=<value optimized out>)
at fortran/trans-types.c:666
#2 0x0000000000495d55 in gfc_sym_type (sym=0xde0be0) at
fortran/trans-types.c:1316
#3 0x0000000000496265 in gfc_get_function_type (sym=0xde0be0) at
fortran/trans-types.c:1781
#4 0x000000000047405e in gfc_get_extern_function_decl (sym=0xde0be0) at
fortran/trans-decl.c:1125
#5 0x000000000047ab54 in gfc_conv_function_val (se=0x7fff1a23f3a0,
sym=0xde0be0) at fortran/trans-expr.c:1222
--
burnus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |burnus at gcc dot gnu dot
| |org
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Keywords| |ice-on-valid-code
Last reconfirmed|0000-00-00 00:00:00 |2006-11-13 21:39:59
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29821
