diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2007-11-30 04:10:47 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-11-30 04:10:47 +0000 |
| commit | a84b9ee86e4ad5865e12fb4d5ebbced4056d9533 (patch) | |
| tree | 6c111f01b6c4dfe3d648cedfaaf92c43e5a77f6e /gcc/fortran/arith.c | |
| parent | 04fe2e7b3008d2746c860d3386a14d3ad84a31ae (diff) | |
| download | gcc-a84b9ee86e4ad5865e12fb4d5ebbced4056d9533.zip gcc-a84b9ee86e4ad5865e12fb4d5ebbced4056d9533.tar.gz gcc-a84b9ee86e4ad5865e12fb4d5ebbced4056d9533.tar.bz2 | |
re PR fortran/34230 (Expressions of parameters evaluated with too high precision)
2007-11-29 Steven G. Kargl <kargls@comcast.net>
PR fortran/34230
* fortran/arith.c (gfc_check_real_range): Set intermediate values
to +-Inf and 0 when -fno-range-check is in effect.
* fortran/invoke.texi: Improve -fno-range-check description.
PR fortran/34203
* fortran/invoke.texi: Document the C escaped characters activated
by -fbackslash.
From-SVN: r130530
Diffstat (limited to 'gcc/fortran/arith.c')
| -rw-r--r-- | gcc/fortran/arith.c | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index 97d093f..cfcbdf0 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -348,14 +348,27 @@ gfc_check_real_range (mpfr_t p, int kind) else if (mpfr_cmp (q, gfc_real_kinds[i].huge) > 0) { if (gfc_option.flag_range_check == 0) - retval = ARITH_OK; + { + mpfr_set_inf (p, mpfr_sgn (p)); + retval = ARITH_OK; + } else retval = ARITH_OVERFLOW; } else if (mpfr_cmp (q, gfc_real_kinds[i].subnormal) < 0) { if (gfc_option.flag_range_check == 0) - retval = ARITH_OK; + { + if (mpfr_sgn (p) < 0) + { + mpfr_set_ui (p, 0, GFC_RND_MODE); + mpfr_set_si (q, -1, GFC_RND_MODE); + mpfr_copysign (p, p, q, GFC_RND_MODE); + } + else + mpfr_set_ui (p, 0, GFC_RND_MODE); + retval = ARITH_OK; + } else retval = ARITH_UNDERFLOW; } |