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 407098e8e4a..a46693587b3 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -2571,8 +2571,8 @@ gfc_trans_string_copy (stmtblock_t * block, tree dlength, tree dest, tmp3 = build_call_expr (built_in_decls[BUILT_IN_MEMMOVE], 3, dest, src, slen); - tmp4 = fold_build2 (PLUS_EXPR, pchar_type_node, dest, - fold_convert (pchar_type_node, slen)); + tmp4 = fold_build2 (POINTER_PLUS_EXPR, pchar_type_node, dest, + fold_convert (sizetype, slen)); tmp4 = build_call_expr (built_in_decls[BUILT_IN_MEMSET], 3, tmp4, build_int_cst (gfc_get_int_type (gfc_c_int_kind), |