------- Comment #1 from burnus at gcc dot gnu dot org 2010-02-23 13:11 -------
Reduced test case:
Program received signal SIGSEGV, Segmentation fault.
0x000000000055cbfd in gfc_trans_structure_assign (dest=<value optimized out>)
at trans-expr.c:4365
4365 tmp = fold_build3 (COMPONENT_REF, TREE_TYPE (field),
==25346== Invalid read of size 8
==25346== at 0x55CBFD: gfc_trans_structure_assign (trans-expr.c:4365)
==25346== by 0x55D32A: gfc_trans_structure_assign (trans-expr.c:4312)
==25346== by 0x55D32A: gfc_trans_structure_assign (trans-expr.c:4312)
==25346== by 0x55D7DF: gfc_conv_structure (trans-expr.c:4394)
==25346== by 0x55DDE1: gfc_trans_assignment_1 (trans-expr.c:5363)
module poly_list
implicit none
type :: node_type
class(node_type), pointer :: next => null()
end type node_type
end module poly_list
program main
use poly_list
implicit none
type, extends(node_type) :: real_node_type
real :: x
end type real_node_type
type(real_node_type), pointer :: real_node
allocate(real_node)
end program main
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43043
