diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2008-10-12 10:46:14 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2008-10-12 10:46:14 +0000 |
| commit | b803690ae11b1e540a5032aefd0a72c25231e795 (patch) | |
| tree | 4cccc34e283e4cc8dfb62af0d5b64fde03d0a90f /gcc/fortran | |
| parent | 7a99defe0dbef55bcbcf2df076a896cc0e7e6658 (diff) | |
| download | gcc-b803690ae11b1e540a5032aefd0a72c25231e795.zip gcc-b803690ae11b1e540a5032aefd0a72c25231e795.tar.gz gcc-b803690ae11b1e540a5032aefd0a72c25231e795.tar.bz2 | |
re PR fortran/37787 (right-left hand side overlap not recognized with EQUIVALENCEd array assignment)
2008-10-12 Paul Thomas <pault@gcc.gnu.org>
PR fortran/37787
* dependency.c (gfc_are_equivalenced_arrays): Look in symbol
namespace rather than current namespace, if it is available.
2008-10-12 Paul Thomas <pault@gcc.gnu.org>
PR fortran/37787
* gfortran.dg/module_equivalence_5.f90: New test.
From-SVN: r141073
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/dependency.c | 8 |
2 files changed, 13 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3d8b826..ac1eaf6 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2008-10-12 Paul Thomas <pault@gcc.gnu.org> + + PR fortran/37787 + * dependency.c (gfc_are_equivalenced_arrays): Look in symbol + namespace rather than current namespace, if it is available. + 2008-10-12 Steven G. Kargl <kargls@comcast.net> PR fortran/37792 diff --git a/gcc/fortran/dependency.c b/gcc/fortran/dependency.c index e58c9aa..05a3dcc 100644 --- a/gcc/fortran/dependency.c +++ b/gcc/fortran/dependency.c @@ -547,10 +547,16 @@ gfc_are_equivalenced_arrays (gfc_expr *e1, gfc_expr *e2) || !e2->symtree->n.sym->attr.in_equivalence|| !e1->rank || !e2->rank) return 0; + if (e1->symtree->n.sym->ns + && e1->symtree->n.sym->ns != gfc_current_ns) + l = e1->symtree->n.sym->ns->equiv_lists; + else + l = gfc_current_ns->equiv_lists; + /* Go through the equiv_lists and return 1 if the variables e1 and e2 are members of the same group and satisfy the requirement on their relative offsets. */ - for (l = gfc_current_ns->equiv_lists; l; l = l->next) + for (; l; l = l->next) { fl1 = NULL; fl2 = NULL; |