[Bug fortran/78239] [5/6/7 Regression] ICE in char_len_param_value, at fortran/decl.c:926, with -fimplicit-none

[tkoenig at gcc dot gnu.org]

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

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

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

--- Comment #5 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Trivial patch:

Index: decl.c
===================================================================
--- decl.c      (Revision 243516)
+++ decl.c      (Arbeitskopie)
@@ -922,7 +922,8 @@ char_len_param_value (gfc_expr **expr, bool *defer

       if (!t && e->ts.type == BT_UNKNOWN
          && e->symtree->n.sym->attr.untyped == 1
-         && (e->symtree->n.sym->ns->seen_implicit_none == 1
+         && (flag_implicit_none
+             || e->symtree->n.sym->ns->seen_implicit_none == 1
              || e->symtree->n.sym->ns->parent->seen_implicit_none == 1))
        {
          gfc_free_expr (e);