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: gs...@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
