diff options
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 4d3345f3fd4..2fee4658a0d 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -1599,9 +1599,7 @@ gfc_resolve_character_array_constructor (gfc_expr *expr) goto got_charlen; } - expr->ts.cl = gfc_get_charlen (); - expr->ts.cl->next = gfc_current_ns->cl_list; - gfc_current_ns->cl_list = expr->ts.cl; + expr->ts.cl = gfc_new_charlen (gfc_current_ns); } got_charlen: |