https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95090
Bug ID: 95090 Summary: ICE: identifier overflow: 129 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: --- Switches between name length 54 (ok) and 55 (ICE) : $ cat z1_54.f90 module m23456789012345678901234567890123456789012345678901234 type t23456789012345678901234567890123456789012345678901234 & (n23456789012345678901234567890123456789012345678901234) integer, len :: n23456789012345678901234567890123456789012345678901234 = 8 end type integer :: a23456789012345678901234567890123456789012345678901234 integer :: b23456789012345678901234567890123456789012345678901234(3)[*] data b23456789012345678901234567890123456789012345678901234 /1,2,3/ contains subroutine s23456789012345678901234567890123456789012345678901234 type(t23456789012345678901234567890123456789012345678901234 & (n23456789012345678901234567890123456789012345678901234)) :: & z23456789012345678901234567890123456789012345678901234 end end $ cat z1_55.f90 module m234567890123456789012345678901234567890123456789012345 type t234567890123456789012345678901234567890123456789012345 & (n234567890123456789012345678901234567890123456789012345) integer, len :: n234567890123456789012345678901234567890123456789012345 = 8 end type integer :: a234567890123456789012345678901234567890123456789012345 integer :: b234567890123456789012345678901234567890123456789012345(3)[*] data b234567890123456789012345678901234567890123456789012345 /1,2,3/ contains subroutine s234567890123456789012345678901234567890123456789012345 type(t234567890123456789012345678901234567890123456789012345 & (n234567890123456789012345678901234567890123456789012345)) :: & z234567890123456789012345678901234567890123456789012345 end end $ cat z1_63.f90 module m23456789012345678901234567890123456789012345678901234567890123 type t23456789012345678901234567890123456789012345678901234567890123 & (n23456789012345678901234567890123456789012345678901234567890123) integer, len :: n23456789012345678901234567890123456789012345678901234567890123 = 8 end type integer :: a23456789012345678901234567890123456789012345678901234567890123 integer :: b23456789012345678901234567890123456789012345678901234567890123(3)[*] data b23456789012345678901234567890123456789012345678901234567890123 /1,2,3/ contains subroutine s23456789012345678901234567890123456789012345678901234567890123 type(t23456789012345678901234567890123456789012345678901234567890123 & (n23456789012345678901234567890123456789012345678901234567890123)) :: & z23456789012345678901234567890123456789012345678901234567890123 end end $ cat z1_63_clean.f90 module m23456789012345678901234567890123456789012345678901234567890123 type t23456789012345678901234567890123456789012345678901234567890123 & (n23456789012345678901234567890123456789012345678901234567890123) integer, len :: n23456789012345678901234567890123456789012345678901234567890123 = 8 end type integer :: a23456789012345678901234567890123456789012345678901234567890123 integer :: b23456789012345678901234567890123456789012345678901234567890123(3)[*] data b23456789012345678901234567890123456789012345678901234567890123 /1,2,3/ contains subroutine s23456789012345678901234567890123456789012345678901234567890123 type(t23456789012345678901234567890123456789012345678901234567890123 & (3)) :: & z23456789012345678901234567890123456789012345678901234567890123 end end $ gfortran-11-20200510 -c z1_54.f90 -fcoarray=lib $ gfortran-11-20200510 -c z1_55.f90 -fcoarray=single $ $ gfortran-11-20200510 -c z1_55.f90 -fcoarray=lib f951: internal compiler error: identifier overflow: 129 0x64db59 gfc_report_diagnostic ../../gcc/fortran/error.c:782 0x64f27a gfc_internal_error(char const*, ...) ../../gcc/fortran/error.c:1402 0x676b1f gfc_get_string(char const*, ...) ../../gcc/fortran/iresolve.c:69 0x71bb8a gfc_build_qualified_array ../../gcc/fortran/trans-decl.c:994 0x720d24 gfc_get_symbol_decl(gfc_symbol*) ../../gcc/fortran/trans-decl.c:1793 0x723b58 gfc_create_module_variable ../../gcc/fortran/trans-decl.c:5297 0x6e2f72 do_traverse_symtree ../../gcc/fortran/symbol.c:4147 0x72435b gfc_generate_module_vars(gfc_namespace*) ../../gcc/fortran/trans-decl.c:5796 0x6fed94 gfc_generate_module_code(gfc_namespace*) ../../gcc/fortran/trans.c:2238 0x6abd11 translate_all_program_units ../../gcc/fortran/parse.c:6293 0x6abd11 gfc_parse_file() ../../gcc/fortran/parse.c:6545 0x6f7a7f gfc_be_parse_file ../../gcc/fortran/f95-lang.c:210