https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99139
Bug ID: 99139
Summary: ICE: gfc_get_default_type(): Bad symbol
'__tmp_UNKNOWN_0_rank_1'
Product: gcc
Version: 11.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 20190825 and 20190901 :
$ cat z1.f90
subroutine s(x)
target :: x(..)
select rank (y => x)
rank (1)
rank (2)
end select
end
$ gfortran-11-20210214 -c z1.f90
f951: internal compiler error: gfc_get_default_type(): Bad symbol
'__tmp_UNKNOWN_0_rank_1'
0x687519 gfc_report_diagnostic
../../gcc/fortran/error.c:782
0x688c3a gfc_internal_error(char const*, ...)
../../gcc/fortran/error.c:1402
0x7206dc gfc_get_default_type(char const*, gfc_namespace*)
../../gcc/fortran/symbol.c:239
0x724408 gfc_set_default_type(gfc_symbol*, int, gfc_namespace*)
../../gcc/fortran/symbol.c:298
0x6ff33c resolve_symbol
../../gcc/fortran/resolve.c:15380
0x71e2c2 do_traverse_symtree
../../gcc/fortran/symbol.c:4170
0x702bb4 resolve_types
../../gcc/fortran/resolve.c:17296
0x6fe22c gfc_resolve(gfc_namespace*)
../../gcc/fortran/resolve.c:17411
0x6fd667 gfc_resolve(gfc_namespace*)
../../gcc/fortran/resolve.c:11720
0x6fd667 resolve_select_rank
../../gcc/fortran/resolve.c:9717
0x6fd667 gfc_resolve_code(gfc_code*, gfc_namespace*)
../../gcc/fortran/resolve.c:12055
0x6fe177 resolve_codes
../../gcc/fortran/resolve.c:17378
0x6fe23e gfc_resolve(gfc_namespace*)
../../gcc/fortran/resolve.c:17413
0x6e6784 resolve_all_program_units
../../gcc/fortran/parse.c:6290
0x6e6784 gfc_parse_file()
../../gcc/fortran/parse.c:6542
0x7330ff gfc_be_parse_file
../../gcc/fortran/f95-lang.c:212
