diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-05-16 18:01:38 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-05-16 18:01:38 +0000 |
| commit | 67a459f37c25a9efb80026e8a85cb875ff07350a (patch) | |
| tree | 6fd007c2a9e6579ba86e34051de52d587deb3a0f /gcc/fortran/arith.c | |
| parent | 5a4db26d013a854edefdd4bb34d01a86f4b43968 (diff) | |
| download | gcc-67a459f37c25a9efb80026e8a85cb875ff07350a.zip gcc-67a459f37c25a9efb80026e8a85cb875ff07350a.tar.gz gcc-67a459f37c25a9efb80026e8a85cb875ff07350a.tar.bz2 | |
* arith.c (gfc_range_check): Fix logic error.
From-SVN: r81918
Diffstat (limited to 'gcc/fortran/arith.c')
| -rw-r--r-- | gcc/fortran/arith.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index 30957b5..7d47151 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; |