diff options
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index c1588f8c749..8da6cf0ef13 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -187,7 +187,7 @@ gfc_conv_missing_dummy (gfc_se * se, gfc_expr * arg, gfc_typespec ts, int kind) { tmp = build3_loc (input_location, COND_EXPR, TREE_TYPE (se->expr), present, se->expr, - fold_convert (TREE_TYPE (se->expr), integer_zero_node)); + build_zero_cst (TREE_TYPE (se->expr))); tmp = gfc_evaluate_now (tmp, &se->pre); se->expr = tmp; } @@ -3634,7 +3634,7 @@ fill_with_spaces (tree start, tree type, tree size) /* Exit condition. */ cond = fold_build2_loc (input_location, LE_EXPR, boolean_type_node, i, - fold_convert (sizetype, integer_zero_node)); + build_zero_cst (sizetype)); tmp = build1_v (GOTO_EXPR, exit_label); tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node, cond, tmp, build_empty_stmt (input_location)); |
