diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-07-25 16:24:00 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-07-25 16:24:00 +0000 |
| commit | 40e1ed26774b7b6c24d166489a715aa75843ab36 (patch) | |
| tree | 4ba8ee2131458a74b1d6ebb6bbb2493f7bceabd4 /gcc/fortran/dependency.h | |
| parent | 0dfa7ba12c7cbdfc177b07f990a859761dc36e25 (diff) | |
| download | gcc-40e1ed26774b7b6c24d166489a715aa75843ab36.zip gcc-40e1ed26774b7b6c24d166489a715aa75843ab36.tar.gz gcc-40e1ed26774b7b6c24d166489a715aa75843ab36.tar.bz2 | |
re PR fortran/65819 (overzealous checking in gfc_check_dependency for identical=true)
2019-07-25 Thomas Koenig <tkoenig@gcc.gnu.org>
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 <tkoenig@gcc.gnu.org>
PR fortran/65819
* gfortran.dg/dependency_54.f90: New test.
From-SVN: r273807
Diffstat (limited to 'gcc/fortran/dependency.h')
| -rw-r--r-- | gcc/fortran/dependency.h | 3 |
1 files changed, 2 insertions, 1 deletions
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 *); |