[Bug fortran/102456] New: ICE in gfc_check_rank, at fortran/check.c:4594

[gscfq@t-online.de]

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

            Bug ID: 102456
           Summary: ICE in gfc_check_rank, at fortran/check.c:4594
           Product: gcc
           Version: 12.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
   type t
      integer :: a
   end type
   type(t) :: x[*]
   print *, rank(x[1])
end


$ gfortran-12-20210919 -c z1.f90 -fcoarray=single
$
$ gfortran-12-20210919 -c z1.f90 -fcoarray=lib
f951: internal compiler error: Segmentation fault
0xc8446f crash_signal
        ../../gcc/toplev.c:328
0x6afceb gfc_check_rank(gfc_expr*)
        ../../gcc/fortran/check.c:4594
0x6eddf9 do_check
        ../../gcc/fortran/intrinsic.c:4786
0x6eddf9 check_specific
        ../../gcc/fortran/intrinsic.c:4799
0x6f81b4 gfc_intrinsic_func_interface(gfc_expr*, int)
        ../../gcc/fortran/intrinsic.c:5036
0x74a859 resolve_unknown_f
        ../../gcc/fortran/resolve.c:2937
0x74a859 resolve_function
        ../../gcc/fortran/resolve.c:3281
0x74a859 gfc_resolve_expr(gfc_expr*)
        ../../gcc/fortran/resolve.c:7115
0x750d44 gfc_resolve_expr(gfc_expr*)
        ../../gcc/fortran/resolve.c:7082
0x750d44 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:11876
0x74f68f gfc_resolve_blocks(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:10892
0x74fa58 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:11866
0x752397 resolve_codes
        ../../gcc/fortran/resolve.c:17479
0x75245e gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:17514
0x73a874 resolve_all_program_units
        ../../gcc/fortran/parse.c:6511
0x73a874 gfc_parse_file()
        ../../gcc/fortran/parse.c:6763
0x78761f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:216