diff options
Diffstat (limited to 'gcc/fortran/data.c')
| -rw-r--r-- | gcc/fortran/data.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c index 9f256bc..c708bec 100644 --- a/gcc/fortran/data.c +++ b/gcc/fortran/data.c @@ -185,7 +185,12 @@ create_character_intializer (gfc_expr * init, gfc_typespec * ts, /* Copy the initial value. */ len = rvalue->value.character.length; if (len > end - start) - len = end - start; + { + len = end - start; + gfc_warning_now ("initialization string truncated to match variable " + "at %L", &rvalue->where); + } + memcpy (&dest[start], rvalue->value.character.string, len); /* Pad with spaces. Substrings will already be blanked. */ |