Searched refs:rtrunc (Results 1 – 2 of 2) sorted by relevance
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | simplify.cc | 976 gfc_expr *rtrunc, *result; in gfc_simplify_aint() local
986 rtrunc = gfc_copy_expr (e); in gfc_simplify_aint()
987 mpfr_trunc (rtrunc->value.real, e->value.real); in gfc_simplify_aint()
989 result = gfc_real2real (rtrunc, kind); in gfc_simplify_aint()
991 gfc_free_expr (rtrunc); in gfc_simplify_aint()
1007 gfc_expr *rtrunc, *result; in gfc_simplify_dint() local
1012 rtrunc = gfc_copy_expr (e); in gfc_simplify_dint()
1013 mpfr_trunc (rtrunc->value.real, e->value.real); in gfc_simplify_dint()
1015 result = gfc_real2real (rtrunc, gfc_default_double_kind); in gfc_simplify_dint()
1017 gfc_free_expr (rtrunc); in gfc_simplify_dint()
[all …]
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | simplify.c | 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()
[all …]
|