From 67a459f37c25a9efb80026e8a85cb875ff07350a Mon Sep 17 00:00:00 2001 From: Paul Brook Date: Sun, 16 May 2004 18:01:38 +0000 Subject: [PATCH] * arith.c (gfc_range_check): Fix logic error. From-SVN: r81918 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/arith.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index b183b8d..9eed0e9 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2004-05-16 Paul Brook + + * arith.c (gfc_range_check): Fix logic error. + 2004-05-16 Steve Kargl * arith.c: Fix comment typos. 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; -- 2.7.4