Searched refs:itrunc (Results 1 - 2 of 2) sorted by relevance

/netbsd-current/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dsimplify.c5994 gfc_expr *itrunc, *result; local
6004 itrunc = gfc_copy_expr (e);
6005 mpfr_round (itrunc->value.real, e->value.real);
6008 gfc_mpfr_to_mpz (result->value.integer, itrunc->value.real, &e->where);
6010 gfc_free_expr (itrunc);
/netbsd-current/external/gpl3/gcc/dist/gcc/fortran/
H A Dsimplify.cc6125 gfc_expr *itrunc, *result; local
6135 itrunc = gfc_copy_expr (e);
6136 mpfr_round (itrunc->value.real, e->value.real);
6139 gfc_mpfr_to_mpz (result->value.integer, itrunc->value.real, &e->where);
6141 gfc_free_expr (itrunc);

Completed in 152 milliseconds