HomeSort by: relevance | last modified time | path
    Searched defs:itrunc (Results 1 - 2 of 2) sorted by relevancy

  /src/external/gpl3/gcc/dist/gcc/fortran/
simplify.cc 6270 gfc_expr *itrunc, *result; local
6280 itrunc = gfc_copy_expr (e);
6281 mpfr_round (itrunc->value.real, e->value.real);
6284 gfc_mpfr_to_mpz (result->value.integer, itrunc->value.real, &e->where);
6286 gfc_free_expr (itrunc);
  /src/external/gpl3/gcc.old/dist/gcc/fortran/
simplify.cc 6200 gfc_expr *itrunc, *result; local
6210 itrunc = gfc_copy_expr (e);
6211 mpfr_round (itrunc->value.real, e->value.real);
6214 gfc_mpfr_to_mpz (result->value.integer, itrunc->value.real, &e->where);
6216 gfc_free_expr (itrunc);

Completed in 36 milliseconds