944   gfc_expr *rtrunc, *result;  in gfc_simplify_aint()  local
954   rtrunc = gfc_copy_expr (e);  in gfc_simplify_aint()
955   mpfr_trunc (rtrunc->value.real, e->value.real);  in gfc_simplify_aint()
957   result = gfc_real2real (rtrunc, kind);  in gfc_simplify_aint()
959   gfc_free_expr (rtrunc);  in gfc_simplify_aint()
975   gfc_expr *rtrunc, *result;  in gfc_simplify_dint()  local
980   rtrunc = gfc_copy_expr (e);  in gfc_simplify_dint()
981   mpfr_trunc (rtrunc->value.real, e->value.real);  in gfc_simplify_dint()
983   result = gfc_real2real (rtrunc, gfc_default_double_kind);  in gfc_simplify_dint()
985   gfc_free_expr (rtrunc);  in gfc_simplify_dint()
3618   gfc_expr *rtrunc, *result;  in gfc_simplify_ifix()  local
3623   rtrunc = gfc_copy_expr (e);  in gfc_simplify_ifix()
3624   mpfr_trunc (rtrunc->value.real, e->value.real);  in gfc_simplify_ifix()
3628   gfc_mpfr_to_mpz (result->value.integer, rtrunc->value.real, &e->where);  in gfc_simplify_ifix()
3630   gfc_free_expr (rtrunc);  in gfc_simplify_ifix()
3639   gfc_expr *rtrunc, *result;  in gfc_simplify_idint()  local
3644   rtrunc = gfc_copy_expr (e);  in gfc_simplify_idint()
3645   mpfr_trunc (rtrunc->value.real, e->value.real);  in gfc_simplify_idint()
3649   gfc_mpfr_to_mpz (result->value.integer, rtrunc->value.real, &e->where);  in gfc_simplify_idint()
3651   gfc_free_expr (rtrunc);  in gfc_simplify_idint()