diff options
Diffstat (limited to 'gcc/fortran/data.cc')
| -rw-r--r-- | gcc/fortran/data.cc | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/data.cc b/gcc/fortran/data.cc index 7024749..d80ba66 100644 --- a/gcc/fortran/data.cc +++ b/gcc/fortran/data.cc @@ -327,6 +327,7 @@ gfc_assign_data_value (gfc_expr *lvalue, gfc_expr *rvalue, mpz_t index, /* Setup the expression to hold the constructor. */ expr->expr_type = EXPR_ARRAY; expr->rank = ref->u.ar.as->rank; + expr->corank = ref->u.ar.as->corank; } if (ref->u.ar.type == AR_ELEMENT) |