Commit 5284fba5 by Steven G. Kargl

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
parent ad671098
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> 2019-10-13 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/92017 PR fortran/92017
......
...@@ -6548,21 +6548,6 @@ resolve_typebound_function (gfc_expr* e) ...@@ -6548,21 +6548,6 @@ resolve_typebound_function (gfc_expr* e)
overridable = !e->value.compcall.tbp->non_overridable; overridable = !e->value.compcall.tbp->non_overridable;
if (expr && expr->ts.type == BT_CLASS && e->value.compcall.name) 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 /* Since the typebound operators are generic, we have to ensure
that any delays in resolution are corrected and that the vtab that any delays in resolution are corrected and that the vtab
is present. */ is present. */
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment