diff options
Diffstat (limited to 'gcc/fortran/data.c')
-rw-r--r-- | gcc/fortran/data.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c index fdb9856..8fb8b5d 100644 --- a/gcc/fortran/data.c +++ b/gcc/fortran/data.c @@ -192,6 +192,9 @@ create_character_intializer (gfc_expr * init, gfc_typespec * ts, if (len < end - start && ref == NULL) memset (&dest[start + len], ' ', end - (start + len)); + if (rvalue->ts.type == BT_HOLLERITH) + init->from_H = 1; + return init; } |