https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102817
Bug ID: 102817 Summary: [12 Regression] ICE in gfc_clear_shape, at fortran/expr.c:422 Product: gcc Version: 12.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: gs...@t-online.de Target Milestone: --- Started between 20211003 and 20211010 : $ cat z1.f90 program p type t integer :: a(1,2) = 3 end type type(t), parameter :: x(1) = t(4) integer :: y(1,2) y = (x(1)%a) print *, y end $ gfortran-12-20211003 -c z1.f90 $ $ gfortran-12-20211017 -c z1.f90 f951: internal compiler error: Segmentation fault 0xd47e4f crash_signal ../../gcc/toplev.c:322 0x798d1b gfc_clear_shape(__mpz_struct (*) [1], int) ../../gcc/fortran/expr.c:422 0x798d1b gfc_free_shape(__mpz_struct (**) [1], int) ../../gcc/fortran/expr.c:432 0x798e3d free_expr0 ../../gcc/fortran/expr.c:513 0x798ff0 gfc_replace_expr(gfc_expr*, gfc_expr*) ../../gcc/fortran/expr.c:626 0x79c768 simplify_const_ref ../../gcc/fortran/expr.c:1999 0x79ce5e gfc_simplify_expr(gfc_expr*, int) ../../gcc/fortran/expr.c:2312 0x79d0ab simplify_parameter_variable ../../gcc/fortran/expr.c:2141 0x79ce2d gfc_simplify_expr(gfc_expr*, int) ../../gcc/fortran/expr.c:2279 0x79c9a6 simplify_intrinsic_op ../../gcc/fortran/expr.c:1188 0x79c9a6 gfc_simplify_expr(gfc_expr*, int) ../../gcc/fortran/expr.c:2268 0x80bb79 resolve_operator ../../gcc/fortran/resolve.c:4470 0x80807f gfc_resolve_expr(gfc_expr*) ../../gcc/fortran/resolve.c:7136 0x810aa4 gfc_resolve_expr(gfc_expr*) ../../gcc/fortran/resolve.c:11806 0x810aa4 gfc_resolve_code(gfc_code*, gfc_namespace*) ../../gcc/fortran/resolve.c:11908 0x812097 resolve_codes ../../gcc/fortran/resolve.c:17512 0x81215e gfc_resolve(gfc_namespace*) ../../gcc/fortran/resolve.c:17547 0x7fa494 resolve_all_program_units ../../gcc/fortran/parse.c:6519 0x7fa494 gfc_parse_file() ../../gcc/fortran/parse.c:6771 0x8476bf gfc_be_parse_file ../../gcc/fortran/f95-lang.c:216