also accept coarrays.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@179680
138bc75d-0d04-0410-961f-
82ee72b054a4
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
array ref references.
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];