From: Paul Brook <paul@codesourcery.com>
Date: Sun, 16 May 2004 18:01:38 +0000 (+0000)
Subject: * arith.c (gfc_range_check): Fix logic error.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=67a459f37c25a9efb80026e8a85cb875ff07350a;p=gcc.git

* arith.c (gfc_range_check): Fix logic error.

From-SVN: r81918
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index b183b8d6b13..9eed0e926e4 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2004-05-16  Paul Brook  <paul@codesourcery.com>
+
+	* arith.c (gfc_range_check): Fix logic error.
+
 2004-05-16  Steve Kargl  <sgk@troutmask.apl.washington.edu>
 
 	* arith.c: Fix comment typos.
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c
index 30957b585f8..7d47151a31d 100644
--- a/gcc/fortran/arith.c
+++ b/gcc/fortran/arith.c
@@ -1193,7 +1193,7 @@ gfc_range_check (gfc_expr * e)
 
     case BT_COMPLEX:
       rc = gfc_check_real_range (e->value.complex.r, e->ts.kind);
-      if (rc != ARITH_OK)
+      if (rc == ARITH_OK)
 	rc = gfc_check_real_range (e->value.complex.i, e->ts.kind);
 
       break;