diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-10-13 16:51:33 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-10-13 16:51:33 +0000 |
| commit | 5284fba56ec3392a61b2fe066027253868274156 (patch) | |
| tree | 440304801b4dca0ad485781fde4bf1fc224238ac /gcc | |
| parent | ad671098740b0dc798a89bc55833088f3948038b (diff) | |
| download | gcc-5284fba56ec3392a61b2fe066027253868274156.zip gcc-5284fba56ec3392a61b2fe066027253868274156.tar.gz gcc-5284fba56ec3392a61b2fe066027253868274156.tar.bz2 | |
re PR fortran/90297 (gcc/fortran/resolve.c: 2 * possibly redundant code ?)
2019-10-13 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/90297
* resolve.c (resolve_typebound_function): Remove code with no
functional effect.
From-SVN: r276940
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 15 |
2 files changed, 6 insertions, 15 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 52f30dd..e215763 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2019-10-13 Steven G. Kargl <kargl@gcc.gnu.org> + + PR fortran/90297 + * resolve.c (resolve_typebound_function): Remove code with no + functional effect. + 2019-10-13 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/92017 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 71539fe..10da8f9 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. */ |