diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/data.c | 3 | ||||
| -rw-r--r-- | gcc/fortran/trans-array.c | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c index 25e9793..71e2552 100644 --- a/gcc/fortran/data.c +++ b/gcc/fortran/data.c @@ -595,6 +595,9 @@ gfc_assign_data_value (gfc_expr *lvalue, gfc_expr *rvalue, mpz_t index, /* An initializer has to be constant. */ if (lvalue->ts.u.cl->length == NULL && !(ref && ref->u.ss.length != NULL)) return false; + if (lvalue->ts.u.cl->length + && lvalue->ts.u.cl->length->expr_type != EXPR_CONSTANT) + return false; expr = create_character_initializer (init, last_ts, ref, rvalue); if (!expr) return false; diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index c672565..478cddd 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -6162,7 +6162,7 @@ gfc_conv_array_initializer (tree type, gfc_expr * expr) case EXPR_ARRAY: /* Create a vector of all the elements. */ for (c = gfc_constructor_first (expr->value.constructor); - c; c = gfc_constructor_next (c)) + c && c->expr; c = gfc_constructor_next (c)) { if (c->iterator) { |