| /src/external/gpl3/gcc/dist/gcc/fortran/ |
| simplify.cc | 1002 gfc_expr *rtrunc, *result; local
1012 rtrunc = gfc_copy_expr (e);
1013 mpfr_trunc (rtrunc->value.real, e->value.real);
1015 result = gfc_real2real (rtrunc, kind);
1017 gfc_free_expr (rtrunc);
1033 gfc_expr *rtrunc, *result; local
1038 rtrunc = gfc_copy_expr (e);
1039 mpfr_trunc (rtrunc->value.real, e->value.real);
1041 result = gfc_real2real (rtrunc, gfc_default_double_kind);
1043 gfc_free_expr (rtrunc);
3703 gfc_expr *rtrunc, *result; local
3724 gfc_expr *rtrunc, *result; local
[all...] |
| simplify.cc | 1002 gfc_expr *rtrunc, *result; local
1012 rtrunc = gfc_copy_expr (e);
1013 mpfr_trunc (rtrunc->value.real, e->value.real);
1015 result = gfc_real2real (rtrunc, kind);
1017 gfc_free_expr (rtrunc);
1033 gfc_expr *rtrunc, *result; local
1038 rtrunc = gfc_copy_expr (e);
1039 mpfr_trunc (rtrunc->value.real, e->value.real);
1041 result = gfc_real2real (rtrunc, gfc_default_double_kind);
1043 gfc_free_expr (rtrunc);
3703 gfc_expr *rtrunc, *result; local
3724 gfc_expr *rtrunc, *result; local
[all...] |
| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| simplify.cc | 976 gfc_expr *rtrunc, *result; local
986 rtrunc = gfc_copy_expr (e);
987 mpfr_trunc (rtrunc->value.real, e->value.real);
989 result = gfc_real2real (rtrunc, kind);
991 gfc_free_expr (rtrunc);
1007 gfc_expr *rtrunc, *result; local
1012 rtrunc = gfc_copy_expr (e);
1013 mpfr_trunc (rtrunc->value.real, e->value.real);
1015 result = gfc_real2real (rtrunc, gfc_default_double_kind);
1017 gfc_free_expr (rtrunc);
3651 gfc_expr *rtrunc, *result; local
3672 gfc_expr *rtrunc, *result; local
[all...] |
| simplify.cc | 976 gfc_expr *rtrunc, *result; local
986 rtrunc = gfc_copy_expr (e);
987 mpfr_trunc (rtrunc->value.real, e->value.real);
989 result = gfc_real2real (rtrunc, kind);
991 gfc_free_expr (rtrunc);
1007 gfc_expr *rtrunc, *result; local
1012 rtrunc = gfc_copy_expr (e);
1013 mpfr_trunc (rtrunc->value.real, e->value.real);
1015 result = gfc_real2real (rtrunc, gfc_default_double_kind);
1017 gfc_free_expr (rtrunc);
3651 gfc_expr *rtrunc, *result; local
3672 gfc_expr *rtrunc, *result; local
[all...] |
