[Bug fortran/107380] New: ICE in coarray_check, at fortran/check.cc:694

["gscfq@t-online.de" <gcc-bugzilla@gcc.gnu.org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107380

            Bug ID: 107380
           Summary: ICE in coarray_check, at fortran/check.cc:694
           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: ---

Affects versions down to at least r5 :


$ cat z1.f90
program p
   class(*), allocatable :: x
   codimension :: x[:]
   allocate (real :: x[*])
   print *, image_index(x, [1])
end


$ cat z2.f90
program p
   class(*), allocatable :: x[:]
   allocate (real :: x[*])
   print *, image_index(x, [1])
end


$ gfortran-13-20221023 -c z2.f90 -fcoarray=lib
$
$ gfortran-13-20221023 -c z1.f90 -fcoarray=lib
z1.f90:4:24:

    4 |    allocate (real :: x[*])
      |                        1
Error: Unexpected coarray designator at (1)
f951: internal compiler error: Segmentation fault
0xf43b3f crash_signal
        ../../gcc/toplev.cc:314
0x7ca22f coarray_check
        ../../gcc/fortran/check.cc:694
0x7d2482 gfc_check_image_index(gfc_expr*, gfc_expr*)
        ../../gcc/fortran/check.cc:5943
0x811b09 do_check
        ../../gcc/fortran/intrinsic.cc:4792
0x811b09 check_specific
        ../../gcc/fortran/intrinsic.cc:4805
0x819b94 gfc_intrinsic_func_interface(gfc_expr*, int)
        ../../gcc/fortran/intrinsic.cc:5042
0x870468 resolve_unknown_f
        ../../gcc/fortran/resolve.cc:2990
0x870468 resolve_function
        ../../gcc/fortran/resolve.cc:3347
0x870468 gfc_resolve_expr(gfc_expr*)
        ../../gcc/fortran/resolve.cc:7194
0x8766cc gfc_resolve_expr(gfc_expr*)
        ../../gcc/fortran/resolve.cc:7161
0x8766cc gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.cc:11980
0x8751ff gfc_resolve_blocks(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.cc:10978
0x875558 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.cc:11970
0x878307 resolve_codes
        ../../gcc/fortran/resolve.cc:17624
0x8783ce gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.cc:17659
0x860194 resolve_all_program_units
        ../../gcc/fortran/parse.cc:6631
0x860194 gfc_parse_file()
        ../../gcc/fortran/parse.cc:6887
0x8aec0f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.cc:229