diff options
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 6b462f9..24606c4 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -1089,7 +1089,7 @@ build_sym (const char *name, gfc_charlen *cl, void gfc_set_constant_character_len (int len, gfc_expr *expr, bool array) { - char *s; + gfc_char_t *s; int slen; gcc_assert (expr->expr_type == EXPR_CONSTANT); @@ -1098,10 +1098,11 @@ gfc_set_constant_character_len (int len, gfc_expr *expr, bool array) slen = expr->value.character.length; if (len != slen) { - s = gfc_getmem (len + 1); - memcpy (s, expr->value.character.string, MIN (len, slen)); + s = gfc_get_wide_string (len + 1); + memcpy (s, expr->value.character.string, + MIN (len, slen) * sizeof (gfc_char_t)); if (len > slen) - memset (&s[slen], ' ', len - slen); + gfc_wide_memset (&s[slen], ' ', len - slen); if (gfc_option.warn_character_truncation && slen > len) gfc_warning_now ("CHARACTER expression at %L is being truncated " |