diff options
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 0e9916a..c3aaf87 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -2942,6 +2942,11 @@ gfc_resolve_expr (gfc_expr * e) gfc_expand_constructor (e); } + /* This provides the opportunity for the length of constructors with character + valued function elements to propogate the string length to the expression. */ + if (e->ts.type == BT_CHARACTER) + gfc_resolve_character_array_constructor (e); + break; case EXPR_STRUCTURE: |