diff options
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 1dd8626..9982b61 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -281,6 +281,7 @@ match_hollerith_constant (gfc_expr ** result) gfc_default_character_kind, &gfc_current_locus); e->value.character.string = gfc_getmem (num+1); memcpy (e->value.character.string, buffer, num); + e->value.character.string[num] = '\0'; e->value.character.length = num; *result = e; return MATCH_YES; |