[Bug fortran/95827] New: ICE in gfc_get_string, at fortran/iresolve.c:70

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

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

            Bug ID: 95827
           Summary: ICE in gfc_get_string, at fortran/iresolve.c:70
           Product: gcc
           Version: 11.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Happens between name length 59 (ok) and 60 (ICE) :


$ cat z1_59.f90
module m2345678901234567890123456789012345678901234567890123456789
   interface
      module subroutine
s2345678901234567890123456789012345678901234567890123456789
      end
   end interface
end
submodule(m2345678901234567890123456789012345678901234567890123456789) &
   n2345678901234567890123456789012345678901234567890123456789
   integer :: x2345678901234567890123456789012345678901234567890123456789[*]
end


$ cat z1_60.f90
module m23456789012345678901234567890123456789012345678901234567890
   interface
      module subroutine
s23456789012345678901234567890123456789012345678901234567890
      end
   end interface
end
submodule(m23456789012345678901234567890123456789012345678901234567890) &
   n23456789012345678901234567890123456789012345678901234567890
   integer :: x23456789012345678901234567890123456789012345678901234567890[*]
end


$ cat z1_63.f90
module m23456789012345678901234567890123456789012345678901234567890123
   interface
      module subroutine
s23456789012345678901234567890123456789012345678901234567890123
      end
   end interface
end
submodule(m23456789012345678901234567890123456789012345678901234567890123) &
   n23456789012345678901234567890123456789012345678901234567890123
   integer ::
x23456789012345678901234567890123456789012345678901234567890123[*]
end


$ gfortran-11-20200621 -c z1_59.f90 -fcoarray=lib
$
$ gfortran-11-20200621 -c z1_60.f90 -fcoarray=lib
f951: internal compiler error: identifier overflow: 200
0x695169 gfc_report_diagnostic
        ../../gcc/fortran/error.c:782
0x69688a gfc_internal_error(char const*, ...)
        ../../gcc/fortran/error.c:1402
0x6be1d7 gfc_get_string(char const*, ...)
        ../../gcc/fortran/iresolve.c:70
0x773c16 gfc_build_qualified_array
        ../../gcc/fortran/trans-decl.c:994
0x7761bc gfc_get_symbol_decl(gfc_symbol*)
        ../../gcc/fortran/trans-decl.c:1795
0x77a340 gfc_create_module_variable
        ../../gcc/fortran/trans-decl.c:5302
0x72ab12 do_traverse_symtree
        ../../gcc/fortran/symbol.c:4162
0x77ae1b gfc_generate_module_vars(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:5801
0x748fc1 gfc_generate_module_code(gfc_namespace*)
        ../../gcc/fortran/trans.c:2238
0x6f3831 translate_all_program_units
        ../../gcc/fortran/parse.c:6294
0x6f3831 gfc_parse_file()
        ../../gcc/fortran/parse.c:6546
0x74021f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:212