diff options
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; |