* trans-array.c (gfc_conv_section_startstride): Update assertion to
also accept coarrays.
From-SVN: r179680
+2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
+
+ * trans-array.c (gfc_conv_section_startstride): Update assertion to
+ also accept coarrays.
+
2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
* trans-array.c (gfc_conv_section_startstride): Factor common
return;
}
- gcc_assert (ar->dimen_type[dim] == DIMEN_RANGE);
+ gcc_assert (ar->dimen_type[dim] == DIMEN_RANGE
+ || ar->dimen_type[dim] == DIMEN_THIS_IMAGE);
desc = info->descriptor;
start = ar->start[dim];
end = ar->end[dim];