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>
|
2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
|
||||||
|
|
||||||
* trans-array.c (gfc_conv_section_startstride): Factor common
|
* 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;
|
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;
|
desc = info->descriptor;
|
||||||
start = ar->start[dim];
|
start = ar->start[dim];
|
||||||
end = ar->end[dim];
|
end = ar->end[dim];
|
||||||
|
|
Loading…
Reference in New Issue