Searched refs:itrunc (Results 1 – 2 of 2) sorted by relevance
6125 gfc_expr *itrunc, *result; in simplify_nint() local6135 itrunc = gfc_copy_expr (e); in simplify_nint()6136 mpfr_round (itrunc->value.real, e->value.real); in simplify_nint()6139 gfc_mpfr_to_mpz (result->value.integer, itrunc->value.real, &e->where); in simplify_nint()6141 gfc_free_expr (itrunc); in simplify_nint()
5994 gfc_expr *itrunc, *result; in simplify_nint() local6004 itrunc = gfc_copy_expr (e); in simplify_nint()6005 mpfr_round (itrunc->value.real, e->value.real); in simplify_nint()6008 gfc_mpfr_to_mpz (result->value.integer, itrunc->value.real, &e->where); in simplify_nint()6010 gfc_free_expr (itrunc); in simplify_nint()