On Thu, Feb 21, 2019 at 04:50:27PM -0500, David Malcolm wrote:
> gcc/fortran/simplify.c | 2 +-
> 1 file changed, 1 insertion(+), 1 deletion(-)
>
> diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
> index fa6396b..a1df735 100644
> --- a/gcc/fortran/simplify.c
> +++ b/gcc/fortran/simplify.c
> @@ -6061,7 +6061,7 @@ norm2_add_squared (gfc_expr *result, gfc_expr *e)
>
> gfc_set_model_kind (result->ts.kind);
> int index = gfc_validate_kind (BT_REAL, result->ts.kind, false);
> - mpfr_exp_t exp;
> + mp_exp_t exp;
> if (mpfr_regular_p (result->value.real))
> {
> exp = mpfr_get_exp (result->value.real);
Ah, sorry for that.
I guess either we can use something like:
#if MPFR_VERSION < MPFR_VERSION_NUM(3,0,0)
mp_exp_t exp;
#else
mpfr_exp_t exp;
#endif
or perhaps just
long exp;
or
int exp;
? We don't have pointers to that passed somewhere, so all we care is that
we cover the range (but, because of the previous limiting of the exponents
in toplev.c, it must fit into integer, because that is the type of the
min_exp/max_exp passed to mpfr_set_e{min,max}.
Jakub
