diff options
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 1ca5b52..8f9f9e4 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -2322,7 +2322,7 @@ gfc_simplify_nearest (gfc_expr * x, gfc_expr * s) else { /* In this case the exponent can shrink, which makes us skip - over one number because we substract one ulp with the + over one number because we subtract one ulp with the larger exponent. Thus we need to compensate for this. */ mpfr_init_set (tmp, result->value.real, GFC_RND_MODE); |