From 40e1ed26774b7b6c24d166489a715aa75843ab36 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Thu, 25 Jul 2019 16:24:00 +0000 Subject: re PR fortran/65819 (overzealous checking in gfc_check_dependency for identical=true) 2019-07-25 Thomas Koenig PR fortran/65819 * dependency.h (gfc_dep_resovler): Add optional argument identical. * dependency.c (gfc_check_dependency): Do not alway return 1 if the symbol is the same. Pass on identical to gfc_dep_resolver. (gfc_check_element_vs_element): Whitespace fix. (gfc_dep_resolver): Adjust comment for function. If identical is true, return 1 if any overlap has been found. 2019-07-25 Thomas Koenig PR fortran/65819 * gfortran.dg/dependency_54.f90: New test. From-SVN: r273807 --- gcc/fortran/dependency.h | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/fortran/dependency.h') diff --git a/gcc/fortran/dependency.h b/gcc/fortran/dependency.h index dd30887..eca60f7 100644 --- a/gcc/fortran/dependency.h +++ b/gcc/fortran/dependency.h @@ -37,7 +37,8 @@ int gfc_check_fncall_dependency (gfc_expr *, sym_intent, gfc_symbol *, int gfc_check_dependency (gfc_expr *, gfc_expr *, bool); int gfc_expr_is_one (gfc_expr *, int); -int gfc_dep_resolver(gfc_ref *, gfc_ref *, gfc_reverse *); +int gfc_dep_resolver (gfc_ref *, gfc_ref *, gfc_reverse *, + bool identical = false); int gfc_are_equivalenced_arrays (gfc_expr *, gfc_expr *); gfc_expr * gfc_discard_nops (gfc_expr *); -- cgit v1.1