> I think it is a bad idea to hard-code the real type.
> Does the following work for you? If so, I think that
> patch is obvious and you can go ahead and commit it.
>
> --- a/gcc/fortran/trans-intrinsic.c
> +++ b/gcc/fortran/trans-intrinsic.c
> @@ -407,7 +407,7 @@ build_round_expr (tree arg, tree restype)
> if (kind < 0)
> gfc_internal_error ("Could not find real kind with at least %d
> bits", resprec);
> - arg = fold_convert (gfc_float128_type_node, arg);
> + arg = fold_convert (gfc_get_real_type (kind), arg);
> fn = gfc_builtin_decl_for_float_kind (BUILT_IN_ROUND, kind);
> }
> else
Yes, it works fine on x86-64/Linux and SPARC64/Linux, applied, thanks.
--
Eric Botcazou
