[Bug fortran/89462] [11/12/13 Regression] gfortran loops in code generation

[cvs-commit at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #17 from GCC Commits <cvs-commit at gcc dot gnu.org> ---
The releases/gcc-13 branch has been updated by Paul Thomas <pa...@gcc.gnu.org>:

https://gcc.gnu.org/g:ff78ffe8f912bc8d2d355f22d32e1ddb9a1169aa

commit r13-8717-gff78ffe8f912bc8d2d355f22d32e1ddb9a1169aa
Author: Paul Thomas <pa...@gcc.gnu.org>
Date:   Thu Apr 25 06:52:31 2024 +0100

    Fortran: Generate new charlens for shared symbol typespecs [PR89462]

    2024-04-25  Paul Thomas  <pa...@gcc.gnu.org>
                Jakub Jelinek  <ja...@gcc.gnu.org>

    gcc/fortran
            PR fortran/89462
            * decl.cc (build_sym): Add an extra argument 'elem'. If 'elem'
            is greater than 1, gfc_new_charlen is called to generate a new
            charlen, registered in the symbol namespace.
            (variable_decl, enumerator_decl): Set the new argument in the
            calls to build_sym.

    gcc/testsuite/
            PR fortran/89462
            * gfortran.dg/pr89462.f90: New test.

    (cherry picked from commit 1fd5a07444776d76cdd6a2eee7df0478201197a5)