The code below causes an ICE with r122699 (20070308). An older version I
happened to have around, gfortran-20070220, crashed as well.

$> 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_private), POINTER :: p
END TYPE

TYPE :: dummy_atom_private
  TYPE(dummy_atom_list) :: neighbours
END TYPE
END MODULE

MODULE class_dummy_atom_model_type
USE class_dummy_atom_types, ONLY: dummy_atom_list

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
    USE class_dummy_atom_model_type
    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:25: internal compiler error: in fold_convert, at fold-const.c:2331
Please submit a full bug report,

$> gfortran-svn -v
gcc version 4.3.0 20070308 (experimental)


-- 
           Summary: ICE in fold_convert, at fold-const.c:2331
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dfranke at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31086

Reply via email to