https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103607
Bug ID: 103607
Summary: [9/10/11/12 Regression] ICE in do_subscript, at
fortran/frontend-passes.c:2927
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 with r8, before 20180525 :
(gcc configured with --enable-checking=yes)
$ cat z1.f90
program p
integer :: i, x(abs(2.))
do i = 1, 2
x(i) = 0
end do
end
$ gfortran-12-20211205 -c z1.f90
z1.f90:2:19:
2 | integer :: i, x(abs(2.))
| 1
Error: Expression at (1) must be of INTEGER type, found REAL
z1.f90:2:27:
2 | integer :: i, x(abs(2.))
| 1
Error: The module or main program array 'x' at (1) must have constant shape
f951: internal compiler error: Segmentation fault
0xf0b99f crash_signal
../../gcc/toplev.c:322
0x956154 do_subscript
../../gcc/fortran/frontend-passes.c:2927
0x956154 do_function
../../gcc/fortran/frontend-passes.c:2706
0x952495 gfc_expr_walker(gfc_expr**, int (*)(gfc_expr**, int*, void*), void*)
../../gcc/fortran/frontend-passes.c:5223
0x954601 gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
../../gcc/fortran/frontend-passes.c:5661
0x954697 gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
../../gcc/fortran/frontend-passes.c:5669
0x95570b doloop_warn
../../gcc/fortran/frontend-passes.c:3059
0x955c5a gfc_run_passes(gfc_namespace*)
../../gcc/fortran/frontend-passes.c:156
0x856467 gfc_resolve(gfc_namespace*)
../../gcc/fortran/resolve.c:17572
0x83e764 resolve_all_program_units
../../gcc/fortran/parse.c:6586
0x83e764 gfc_parse_file()
../../gcc/fortran/parse.c:6842
0x88c73f gfc_be_parse_file
../../gcc/fortran/f95-lang.c:216
