https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70397
Bug ID: 70397
Summary: ice while allocating ultimate polymorphic
Product: gcc
Version: 5.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: valeryweber at hotmail dot com
Target Milestone: ---
Dear All
The following code is ICEing.
v
cat gcc-ice-polym.f90
module mod
TYPE, PUBLIC :: base_type
END TYPE base_type
TYPE, PUBLIC :: dict_entry_type
PRIVATE
CLASS( * ), ALLOCATABLE :: key
CLASS( * ), ALLOCATABLE :: val
END TYPE dict_entry_type
contains
SUBROUTINE dict_put ( this, key, val )
CLASS(dict_entry_type), INTENT(INOUT) :: this
CLASS(base_type), INTENT(IN) :: key, val
INTEGER :: istat
ALLOCATE( this%key, SOURCE=key, STAT=istat )
end SUBROUTINE dict_put
end module mod
gfortran-5.3.0 -c gcc-ice-polym.f90
gcc-ice-polym.f90:19:0:
ALLOCATE( this%key, SOURCE=key, STAT=istat )
1
internal compiler error: Segmentation fault
0xa3420f crash_signal
../../gcc-5.3.0/gcc/toplev.c:383
0x69c8b8 gfc_class_len_get(tree_node*)
../../gcc-5.3.0/gcc/fortran/trans-expr.c:170
0x69fcb7 gfc_copy_class_to_class(tree_node*, tree_node*, tree_node*, bool)
../../gcc-5.3.0/gcc/fortran/trans-expr.c:1052
0x6d6fec gfc_trans_allocate(gfc_code*)
../../gcc-5.3.0/gcc/fortran/trans-stmt.c:5630
0x678bd7 trans_code
../../gcc-5.3.0/gcc/fortran/trans.c:1820
0x6995c4 gfc_generate_function_code(gfc_namespace*)
../../gcc-5.3.0/gcc/fortran/trans-decl.c:5851
0x67a1b9 gfc_generate_module_code(gfc_namespace*)
../../gcc-5.3.0/gcc/fortran/trans.c:2036
0x635118 translate_all_program_units
../../gcc-5.3.0/gcc/fortran/parse.c:5330
0x635118 gfc_parse_file()
../../gcc-5.3.0/gcc/fortran/parse.c:5540
0x674dd5 gfc_be_parse_file
../../gcc-5.3.0/gcc/fortran/f95-lang.c:229
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <http://gcc.gnu.org/bugs.html> for instructions.
