From 644e9dad11b9ba317bd11726569b5d8bc648950f Mon Sep 17 00:00:00 2001 From: tkoenig Date: Mon, 2 Aug 2010 22:04:36 +0000 Subject: 2010-08-02 Thomas Koenig PR fortran/45159 * depencency.c (gfc_dep_resolver): Fix logic for when a loop can be reversed. 2010-08-02 Thomas Koenig PR fortran/45159 * gfortran.dg/dependency_29.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@162829 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/dependency.c | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index db64bff0596..3b5a435e0f0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-08-02 Thomas Koenig + + PR fortran/45159 + * depencency.c (gfc_dep_resolver): Fix logic for when a loop + can be reversed. + 2010-08-02 Thomas Koenig PR fortran/36854 diff --git a/gcc/fortran/dependency.c b/gcc/fortran/dependency.c index b20b627b3f7..1eae1ebaa81 100644 --- a/gcc/fortran/dependency.c +++ b/gcc/fortran/dependency.c @@ -1716,8 +1716,8 @@ gfc_dep_resolver (gfc_ref *lref, gfc_ref *rref, gfc_reverse *reverse) /* If no intention of reversing or reversing is explicitly inhibited, convert backward dependence to overlap. */ - if ((reverse == NULL && this_dep == GFC_DEP_BACKWARD) - || (reverse && reverse[n] == GFC_CANNOT_REVERSE)) + if (this_dep == GFC_DEP_BACKWARD + && (reverse == NULL || reverse[n] == GFC_CANNOT_REVERSE)) this_dep = GFC_DEP_OVERLAP; } -- cgit v1.2.1