[Bug fortran/64980] [5 Regression] ICE in trans-expr.c

[mikael at gcc dot gnu.org]

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

--- Comment #5 from Mikael Morin <mikael at gcc dot gnu.org> ---
(In reply to Mikael Morin from comment #4)
> This cures it:

Another way to cure it:

Index: trans-expr.c
===================================================================
--- trans-expr.c    (révision 220514)
+++ trans-expr.c    (copie de travail)
@@ -3783,10 +3783,6 @@ gfc_apply_interface_mapping_to_expr (gfc_interface
       expr->symtree = sym->new_sym;
     else if (sym->expr)
       gfc_replace_expr (expr, gfc_copy_expr (sym->expr));
-    /* Replace base type for polymorphic arguments.  */
-    if (expr->ref && expr->ref->type == REF_COMPONENT
-        && sym->expr && sym->expr->ts.type == BT_CLASS)
-      expr->ref->u.c.sym = sym->expr->ts.u.derived;
       }

       /* ...and to subexpressions in expr->value.  */