diff options
Diffstat (limited to 'gcc/fortran/array.cc')
| -rw-r--r-- | gcc/fortran/array.cc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/array.cc b/gcc/fortran/array.cc index ed8cb54..773c5b7 100644 --- a/gcc/fortran/array.cc +++ b/gcc/fortran/array.cc @@ -1390,7 +1390,7 @@ done: expr = gfc_get_array_expr (BT_UNKNOWN, 0, &where); expr->value.constructor = head; - if (expr->ts.u.cl) + if (expr->ts.type == BT_CHARACTER && expr->ts.u.cl) expr->ts.u.cl->length_from_typespec = seen_ts; *result = expr; |