Committed as obvious:
Committing to svn+ssh://jvdeli...@gcc.gnu.org/svn/gcc/trunk ...
M gcc/fortran/ChangeLog
M gcc/fortran/arith.c
Committed r249627
After regression testing.
Jerry
--- trunk/gcc/fortran/arith.c 2017/06/24 19:31:24 249626
+++ trunk/gcc/fortran/arith.c 2017/06/24 21:22:08 249627
@@ -2001,13 +2001,14 @@
static bool
wprecision_int_real (mpz_t n, mpfr_t r)
{
+ bool ret;
mpz_t i;
mpz_init (i);
mpfr_get_z (i, r, GFC_RND_MODE);
mpz_sub (i, i, n);
- return mpz_cmp_si (i, 0) != 0;
+ ret = mpz_cmp_si (i, 0) != 0;
mpz_clear (i);
-
+ return ret;
}
/* Convert integers to integers. */
