diff options
Diffstat (limited to 'gcc/fortran/data.c')
| -rw-r--r-- | gcc/fortran/data.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c index 2ab6f50..d53f92c 100644 --- a/gcc/fortran/data.c +++ b/gcc/fortran/data.c @@ -155,7 +155,8 @@ create_character_intializer (gfc_expr * init, gfc_typespec * ts, init->expr_type = EXPR_CONSTANT; init->ts = *ts; - dest = gfc_getmem (len); + dest = gfc_getmem (len + 1); + dest[len] = '\0'; init->value.character.length = len; init->value.character.string = dest; /* Blank the string if we're only setting a substring. */ |