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:
parent
3ca398580d
commit
b0ac6998a7
|
@ -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
|
||||
|
|
|
@ -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];
|
||||
|
|
Loading…
Reference in New Issue