From 5284fba56ec3392a61b2fe066027253868274156 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Sun, 13 Oct 2019 16:51:33 +0000 Subject: [PATCH] re PR fortran/90297 (gcc/fortran/resolve.c: 2 * possibly redundant code ?) 2019-10-13 Steven G. Kargl PR fortran/90297 * resolve.c (resolve_typebound_function): Remove code with no functional effect. From-SVN: r276940 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/resolve.c | 15 --------------- 2 files changed, 6 insertions(+), 15 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 52f30dd58f5..e215763a862 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2019-10-13 Steven G. Kargl + + PR fortran/90297 + * resolve.c (resolve_typebound_function): Remove code with no + functional effect. + 2019-10-13 Thomas Koenig PR fortran/92017 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 71539fed448..10da8f9a00d 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -6548,21 +6548,6 @@ resolve_typebound_function (gfc_expr* e) overridable = !e->value.compcall.tbp->non_overridable; if (expr && expr->ts.type == BT_CLASS && e->value.compcall.name) { - /* If the base_object is not a variable, the corresponding actual - argument expression must be stored in e->base_expression so - that the corresponding tree temporary can be used as the base - object in gfc_conv_procedure_call. */ - if (expr->expr_type != EXPR_VARIABLE) - { - gfc_actual_arglist *args; - - for (args= e->value.function.actual; args; args = args->next) - { - if (expr == args->expr) - expr = args->expr; - } - } - /* Since the typebound operators are generic, we have to ensure that any delays in resolution are corrected and that the vtab is present. */ -- 2.30.2