diff options
Diffstat (limited to 'gcc/fortran/arith.c')
| -rw-r--r-- | gcc/fortran/arith.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index efbe6de..c692e62 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -545,7 +545,7 @@ check_result (arith rc, gfc_expr *x, gfc_expr *r, gfc_expr **rp) if (val == ARITH_UNDERFLOW) { if (warn_underflow) - gfc_warning (gfc_arith_error (val), &x->where); + gfc_warning (OPT_Wunderflow, gfc_arith_error (val), &x->where); val = ARITH_OK; } @@ -2078,7 +2078,7 @@ gfc_real2real (gfc_expr *src, int kind) if (rc == ARITH_UNDERFLOW) { if (warn_underflow) - gfc_warning (gfc_arith_error (rc), &src->where); + gfc_warning (OPT_Woverflow, gfc_arith_error (rc), &src->where); mpfr_set_ui (result->value.real, 0, GFC_RND_MODE); } else if (rc != ARITH_OK) @@ -2109,7 +2109,7 @@ gfc_real2complex (gfc_expr *src, int kind) if (rc == ARITH_UNDERFLOW) { if (warn_underflow) - gfc_warning (gfc_arith_error (rc), &src->where); + gfc_warning (OPT_Woverflow, gfc_arith_error (rc), &src->where); mpfr_set_ui (mpc_realref (result->value.complex), 0, GFC_RND_MODE); } else if (rc != ARITH_OK) @@ -2164,7 +2164,7 @@ gfc_complex2real (gfc_expr *src, int kind) if (rc == ARITH_UNDERFLOW) { if (warn_underflow) - gfc_warning (gfc_arith_error (rc), &src->where); + gfc_warning (OPT_Woverflow, gfc_arith_error (rc), &src->where); mpfr_set_ui (result->value.real, 0, GFC_RND_MODE); } if (rc != ARITH_OK) @@ -2195,7 +2195,7 @@ gfc_complex2complex (gfc_expr *src, int kind) if (rc == ARITH_UNDERFLOW) { if (warn_underflow) - gfc_warning (gfc_arith_error (rc), &src->where); + gfc_warning (OPT_Woverflow, gfc_arith_error (rc), &src->where); mpfr_set_ui (mpc_realref (result->value.complex), 0, GFC_RND_MODE); } else if (rc != ARITH_OK) @@ -2210,7 +2210,7 @@ gfc_complex2complex (gfc_expr *src, int kind) if (rc == ARITH_UNDERFLOW) { if (warn_underflow) - gfc_warning (gfc_arith_error (rc), &src->where); + gfc_warning (OPT_Woverflow, gfc_arith_error (rc), &src->where); mpfr_set_ui (mpc_imagref (result->value.complex), 0, GFC_RND_MODE); } else if (rc != ARITH_OK) @@ -2280,7 +2280,7 @@ hollerith2representation (gfc_expr *result, gfc_expr *src) if (src_len > result_len) { - gfc_warning ("The Hollerith constant at %L is too long to convert to %s", + gfc_warning ("The Hollerith constant at %L is too long to convert to %qs", &src->where, gfc_typename(&result->ts)); } |