===================================================================
@@ -5399,6 +5399,33 @@ generate_coarray_sym_init (gfc_symbol *sym)
/* Handle "static" initializer. */
if (sym->value)
{
+ if (sym->value->expr_type == EXPR_ARRAY)
+ {
+ gfc_constructor *c, *cnext;
+
+ /* Test if the array has more than one element. */
+ c = gfc_constructor_first (sym->value->value.constructor);
+ gcc_assert (c); /* Empty constructor should not happen here. */
+ cnext = gfc_constructor_next (c);
+
+ if (cnext)
+ {
+ /* An EXPR_ARRAY with a rank > 1 here has to come from a
+ DATA statement. Set its rank here as not to confuse
+ the following steps. */
+ sym->value->rank = 1;
+ }
+ else
+ {
+ /* There is only a single value in the constructor, use
+ it directly for the assignment. */
+ gfc_expr *new_expr;
+ new_expr = gfc_copy_expr (c->expr);
+ gfc_free_expr (sym->value);
+ sym->value = new_expr;
+ }
+ }
+
sym->attr.pointer = 1;
tmp = gfc_trans_assignment (gfc_lval_expr_from_sym (sym), sym->value,
true, false);
Hello world, this patch fixes the coarray part of PR 71066 - handling of data statements for coarrays. The PR itself is marked as a 7/8/9 regression. Regression-tested. OK for trunk and for backporting? Regards Thomas 2019-02-10 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/71066 * trans-decl.c (generate_coarray_sym_init): For an array constructor in a DATA statement of a coarray variable, set the rank to 1 to avoid confusion later on. If the constructor contains only one value, use that for initiailizig. 2019-02-10 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/71066 * gfortran.dg/coarray_data_1.f90: New test.