diff options
Diffstat (limited to 'gcc/fortran/arith.c')
| -rw-r--r-- | gcc/fortran/arith.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index f8f2ba6..efbe6de 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -544,7 +544,7 @@ check_result (arith rc, gfc_expr *x, gfc_expr *r, gfc_expr **rp) if (val == ARITH_UNDERFLOW) { - if (gfc_option.warn_underflow) + if (warn_underflow) gfc_warning (gfc_arith_error (val), &x->where); val = ARITH_OK; } @@ -2077,7 +2077,7 @@ gfc_real2real (gfc_expr *src, int kind) if (rc == ARITH_UNDERFLOW) { - if (gfc_option.warn_underflow) + if (warn_underflow) gfc_warning (gfc_arith_error (rc), &src->where); mpfr_set_ui (result->value.real, 0, GFC_RND_MODE); } @@ -2108,7 +2108,7 @@ gfc_real2complex (gfc_expr *src, int kind) if (rc == ARITH_UNDERFLOW) { - if (gfc_option.warn_underflow) + if (warn_underflow) gfc_warning (gfc_arith_error (rc), &src->where); mpfr_set_ui (mpc_realref (result->value.complex), 0, GFC_RND_MODE); } @@ -2163,7 +2163,7 @@ gfc_complex2real (gfc_expr *src, int kind) if (rc == ARITH_UNDERFLOW) { - if (gfc_option.warn_underflow) + if (warn_underflow) gfc_warning (gfc_arith_error (rc), &src->where); mpfr_set_ui (result->value.real, 0, GFC_RND_MODE); } @@ -2194,7 +2194,7 @@ gfc_complex2complex (gfc_expr *src, int kind) if (rc == ARITH_UNDERFLOW) { - if (gfc_option.warn_underflow) + if (warn_underflow) gfc_warning (gfc_arith_error (rc), &src->where); mpfr_set_ui (mpc_realref (result->value.complex), 0, GFC_RND_MODE); } @@ -2209,7 +2209,7 @@ gfc_complex2complex (gfc_expr *src, int kind) if (rc == ARITH_UNDERFLOW) { - if (gfc_option.warn_underflow) + if (warn_underflow) gfc_warning (gfc_arith_error (rc), &src->where); mpfr_set_ui (mpc_imagref (result->value.complex), 0, GFC_RND_MODE); } |