From 3fa31ee92a75cb1afc321d7016c3c7ab28d7899c Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Fri, 14 Jun 2019 18:17:00 +0000 Subject: re PR fortran/89646 (Spurious actual argument might interfere warning) 2019-06-14 Steven G. Kargl PR fortran/89646 * dependency.c (gfc_check_argument_var_dependency): Suppress spurious warnings by comparing variable names. 2019-06-14 Steven G. Kargl PR fortran/89646 * gfortran.dg/pr89646.f90: New test. From-SVN: r272307 --- gcc/fortran/dependency.c | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'gcc/fortran/dependency.c') diff --git a/gcc/fortran/dependency.c b/gcc/fortran/dependency.c index 8eae644..be330e2 100644 --- a/gcc/fortran/dependency.c +++ b/gcc/fortran/dependency.c @@ -979,10 +979,14 @@ gfc_check_argument_var_dependency (gfc_expr *var, sym_intent intent, If a dependency is found in the case elemental == ELEM_CHECK_VARIABLE, we will generate a temporary, so we don't need to bother the user. */ - gfc_warning (0, "INTENT(%s) actual argument at %L might " - "interfere with actual argument at %L.", - intent == INTENT_OUT ? "OUT" : "INOUT", - &var->where, &expr->where); + + if (var->expr_type == EXPR_VARIABLE + && expr->expr_type == EXPR_VARIABLE + && strcmp(var->symtree->name, expr->symtree->name) == 0) + gfc_warning (0, "INTENT(%s) actual argument at %L might " + "interfere with actual argument at %L.", + intent == INTENT_OUT ? "OUT" : "INOUT", + &var->where, &expr->where); } return 0; } -- cgit v1.1