[Bug fortran/95089] [Coarray] ICE in gfc_get_derived_type, at fortran/trans-types.c:2843

[anlauf at gcc dot gnu.org]

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

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |ASSIGNED
           Assignee|unassigned at gcc dot gnu.org      |anlauf at gcc dot gnu.org

--- Comment #2 from anlauf at gcc dot gnu.org ---
Obvious fix:

diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index b7712dc74d1..99844812505 100644
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -2836,9 +2836,10 @@ copy_derived_types:
          && (c->attr.allocatable || c->attr.pointer)
          && !derived->attr.is_class)
        {
-         char caf_name[GFC_MAX_SYMBOL_LEN];
+         /* Provide sufficient space to hold "_caf_symbol".  */
+         char caf_name[GFC_MAX_SYMBOL_LEN + 6];
          gfc_component *token;
-         snprintf (caf_name, GFC_MAX_SYMBOL_LEN, "_caf_%s", c->name);
+         snprintf (caf_name, sizeof (caf_name), "_caf_%s", c->name);
          token = gfc_find_component (derived, caf_name, true, true, NULL);
          gcc_assert (token);
          c->caf_token = token->backend_decl;