trans-array.c (gfc_conv_section_startstride): Update assertion to also accept coarrays.

* trans-array.c (gfc_conv_section_startstride): Update assertion to
	also accept coarrays.

From-SVN: r179680
This commit is contained in:
Mikael Morin 2011-10-07 21:36:20 +02:00 committed by Mikael Morin
parent 3ca398580d
commit b0ac6998a7
2 changed files with 7 additions and 1 deletions

View File

@ -1,3 +1,8 @@
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

View File

@ -3204,7 +3204,8 @@ gfc_conv_section_startstride (gfc_loopinfo * loop, gfc_ss * ss, int dim,
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];