diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2023-03-19 21:29:46 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2023-03-20 18:42:54 +0100 |
| commit | 4410a08b80cc40342eeaa5b6af824cd4352b218c (patch) | |
| tree | 71dfec6b27a7ed02ba053c3d69bff2ef9290a33b /gcc/fortran/simplify.cc | |
| parent | fbd50e867e6a782c7b56c9727bf7e1e74dae4b94 (diff) | |
| download | gcc-4410a08b80cc40342eeaa5b6af824cd4352b218c.zip gcc-4410a08b80cc40342eeaa5b6af824cd4352b218c.tar.gz gcc-4410a08b80cc40342eeaa5b6af824cd4352b218c.tar.bz2 | |
Fortran: simplification of NEAREST for large argument [PR109186]
gcc/fortran/ChangeLog:
PR fortran/109186
* simplify.cc (gfc_simplify_nearest): Fix off-by-one error in setting
up real kind-specific maximum exponent for mpfr.
gcc/testsuite/ChangeLog:
PR fortran/109186
* gfortran.dg/nearest_6.f90: New test.
Diffstat (limited to 'gcc/fortran/simplify.cc')
| -rw-r--r-- | gcc/fortran/simplify.cc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/simplify.cc b/gcc/fortran/simplify.cc index 20ea38e..ecf0e35 100644 --- a/gcc/fortran/simplify.cc +++ b/gcc/fortran/simplify.cc @@ -6114,7 +6114,7 @@ gfc_simplify_nearest (gfc_expr *x, gfc_expr *s) kind = gfc_validate_kind (BT_REAL, x->ts.kind, 0); mpfr_set_emin ((mpfr_exp_t) gfc_real_kinds[kind].min_exponent - mpfr_get_prec(result->value.real) + 1); - mpfr_set_emax ((mpfr_exp_t) gfc_real_kinds[kind].max_exponent - 1); + mpfr_set_emax ((mpfr_exp_t) gfc_real_kinds[kind].max_exponent); mpfr_check_range (result->value.real, 0, MPFR_RNDU); if (mpfr_sgn (s->value.real) > 0) |