https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107577
Bug ID: 107577
Summary: [13 Regression] ICE in find_array_spec, at
fortran/resolve.cc:5008
Product: gcc
Version: 13.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 20220717 and 20220724 :
$ cat z1.f90
program p
implicit none
associate (y => f(4))
if (lbound (y, 1) /= 1) stop 1
if (y(1) /= 1) stop 2
end associate
end
$ gfortran-13-20221106 -c z1.f90
z1.f90:3:19:
3 | associate (y => f(4))
| 1
Error: Function 'f' at (1) has no IMPLICIT type
z1.f90:3:23:
3 | associate (y => f(4))
| 1
Error: Symbol 'y' at (1) has no IMPLICIT type
z1.f90:3:19:
3 | associate (y => f(4))
| 1
Error: Selector at (1) has no type
in gfc_format_decoder, at fortran/error.cc:1071
0x7fab72 gfc_format_decoder
../../gcc/fortran/error.cc:1071
0x1f8bff0 pp_format(pretty_printer*, text_info*)
../../gcc/pretty-print.cc:1475
0x1f6af10 diagnostic_report_diagnostic(diagnostic_context*, diagnostic_info*)
../../gcc/diagnostic.cc:1548
0x7fabd9 gfc_report_diagnostic
../../gcc/fortran/error.cc:883
0x7fad68 gfc_error_opt
../../gcc/fortran/error.cc:1453
0x7fc5d0 gfc_error(char const*, ...)
../../gcc/fortran/error.cc:1482
0x880aba find_array_spec
../../gcc/fortran/resolve.cc:5008
0x880aba gfc_resolve_ref(gfc_expr*)
../../gcc/fortran/resolve.cc:5355
0x8708d7 resolve_variable
../../gcc/fortran/resolve.cc:5870
0x8708d7 gfc_resolve_expr(gfc_expr*)
../../gcc/fortran/resolve.cc:7196
0x8747df gfc_resolve_expr(gfc_expr*)
../../gcc/fortran/resolve.cc:2234
0x8747df resolve_actual_arglist
../../gcc/fortran/resolve.cc:2153
0x87048e resolve_function
../../gcc/fortran/resolve.cc:3292
0x87048e gfc_resolve_expr(gfc_expr*)
../../gcc/fortran/resolve.cc:7194
0x8739c9 gfc_resolve_expr(gfc_expr*)
../../gcc/fortran/resolve.cc:7161
0x8739c9 resolve_operator
../../gcc/fortran/resolve.cc:4093
0x86feff gfc_resolve_expr(gfc_expr*)
../../gcc/fortran/resolve.cc:7187
0x877231 gfc_resolve_expr(gfc_expr*)
../../gcc/fortran/resolve.cc:7161
0x877231 gfc_resolve_blocks(gfc_code*, gfc_namespace*)
../../gcc/fortran/resolve.cc:10842
0x8775d8 gfc_resolve_code(gfc_code*, gfc_namespace*)
../../gcc/fortran/resolve.cc:11970
