------- Comment #1 from dfranke at gcc dot gnu dot org 2007-03-08 16:27 -------
I could reduce the testcase slightly. New version:
$> cat ice.f90
MODULE class_dummy_atom_types
TYPE :: dummy_atom_list
TYPE(dummy_atom), DIMENSION(:), POINTER :: table
END TYPE
TYPE :: dummy_atom
TYPE(dummy_atom_list) :: neighbours
END TYPE
TYPE :: dummy_atom_model
TYPE(dummy_atom_list) :: atoms
END TYPE
END MODULE
MODULE test_class_intensity_private
CONTAINS
SUBROUTINE change_phase(atom)
USE class_dummy_atom_types
TYPE(dummy_atom), INTENT(inout) :: atom
END SUBROUTINE
SUBROUTINE simulate_cube()
USE class_dummy_atom_types
TYPE(dummy_atom) :: atom
TYPE(dummy_atom_model) :: dam
atom = dam%atoms%table(1)
END SUBROUTINE
END MODULE
$> gfortran-svn -g -Wall ice.f90
ice.f90: In function 'simulate_cube':
ice.f90:17: internal compiler error: in fold_convert, at fold-const.c:2331
Please submit a full bug report,
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31086
