https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102716
Bug ID: 102716
Summary: ICE in gfc_validate_kind(): Got bad kind
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: ---
Affects versions down to at least r5 :
$ cat z1.f90
program p
integer, parameter :: a(1) = shape([2], [1])
end
$ gfortran-12-20211010 -c z1.f90
f951: internal compiler error: gfc_validate_kind(): Got bad kind
0x794719 gfc_report_diagnostic
../../gcc/fortran/error.c:874
0x796287 gfc_internal_error(char const*, ...)
../../gcc/fortran/error.c:1494
0x8ca3b5 gfc_validate_kind(bt, int, bool)
../../gcc/fortran/trans-types.c:788
0x75e957 gfc_check_integer_range(__mpz_struct*, int)
../../gcc/fortran/arith.c:300
0x8201c0 range_check
../../gcc/fortran/simplify.c:86
0x82c544 range_check
../../gcc/fortran/simplify.c:7465
0x82c544 gfc_simplify_shape(gfc_expr*, gfc_expr*)
../../gcc/fortran/simplify.c:7448
0x7aa693 do_simplify
../../gcc/fortran/intrinsic.c:4664
0x7b50ba gfc_intrinsic_func_interface(gfc_expr*, int)
../../gcc/fortran/intrinsic.c:5050
0x8078e9 resolve_unknown_f
../../gcc/fortran/resolve.c:2937
0x8078e9 resolve_function
../../gcc/fortran/resolve.c:3281
0x8078e9 gfc_resolve_expr(gfc_expr*)
../../gcc/fortran/resolve.c:7115
0x79a244 gfc_reduce_init_expr(gfc_expr*)
../../gcc/fortran/expr.c:3125
0x79d4b0 gfc_match_init_expr(gfc_expr**)
../../gcc/fortran/expr.c:3173
0x787c74 variable_decl
../../gcc/fortran/decl.c:3016
0x787c74 gfc_match_data_decl()
../../gcc/fortran/decl.c:6325
0x7f01d3 match_word
../../gcc/fortran/parse.c:65
0x7f01d3 decode_statement
../../gcc/fortran/parse.c:376
0x7f1c1a next_free
../../gcc/fortran/parse.c:1384
0x7f1c1a next_statement
../../gcc/fortran/parse.c:1616
