------- Comment #16 from dfranke at gcc dot gnu dot org 2009-05-07 18:34
-------
$> cat ice.f90
MODULE module_foo
TYPE :: foo_node
TYPE(foo_node_private), POINTER :: p
END TYPE
TYPE :: foo_node_private
TYPE(foo_node), DIMENSION(-1:1) :: link
END TYPE
TYPE :: foo
TYPE(foo_node) :: root
END TYPE
END MODULE
FUNCTION foo_insert()
USE module_foo, ONLY: foo, foo_node
INTEGER :: foo_insert
TYPE(foo_node) :: parent, current
INTEGER :: cmp
parent = current
current = current%p%link(cmp)
END FUNCTION
FUNCTION foo_count()
USE module_foo, ONLY: foo
INTEGER :: foo_count
END FUNCTION
$> gfortran-svn -fwhole-file ice.f90
ice.f90: In function 'foo_insert':
ice.f90:22: internal compiler error: in fold_convert, at fold-const.c:2670
where fold-const.c:2670 is gcc_unreachable().
Adding Janus as CC as his patch has a high likelihood of being involved.
--
dfranke at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |janus at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40011
