[Bug fortran/107577] New: [13 Regression] ICE in find_array_spec, at fortran/resolve.cc:5008

[gscfq@t-online.de]

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: gscfq@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