https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84869
Bug ID: 84869
Summary: [7/8 Regression] ICE in gfc_class_len_get, at
fortran/trans-expr.c:233
Product: gcc
Version: 8.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gs...@t-online.de
Target Milestone: ---
Changed between 20161016 and 20161023 :
$ cat z1.f90
program p
type t
end type
call s
contains
function f()
class(t), allocatable :: f(:)
end
subroutine s
class(*), allocatable :: z(:)
allocate (z, source=f())
end
end
$ gfortran-7-20161016 -c z1.f90
$
$ gfortran-8-20180311 -c z1.f90
z1.f90:11:0:
allocate (z, source=f())
internal compiler error: Segmentation fault
0xb9b07f crash_signal
../../gcc/toplev.c:325
0x774c0e gfc_class_len_get(tree_node*)
../../gcc/fortran/trans-expr.c:233
0x785417 trans_class_vptr_len_assignment
../../gcc/fortran/trans-expr.c:8194
0x785d29 trans_class_assignment
../../gcc/fortran/trans-expr.c:9849
0x785d29 gfc_trans_assignment_1
../../gcc/fortran/trans-expr.c:10232
0x7b95b1 gfc_trans_allocate(gfc_code*)
../../gcc/fortran/trans-stmt.c:6566
0x749f67 trans_code
../../gcc/fortran/trans.c:1996
0x771449 gfc_generate_function_code(gfc_namespace*)
../../gcc/fortran/trans-decl.c:6497
0x7712c7 gfc_generate_contained_functions
../../gcc/fortran/trans-decl.c:5509
0x7712c7 gfc_generate_function_code(gfc_namespace*)
../../gcc/fortran/trans-decl.c:6426
0x7007c0 translate_all_program_units
../../gcc/fortran/parse.c:6121
0x7007c0 gfc_parse_file()
../../gcc/fortran/parse.c:6324
0x74735f gfc_be_parse_file
../../gcc/fortran/f95-lang.c:204
