of array's dimention. Check that it is indeed the same.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@180847
138bc75d-0d04-0410-961f-
82ee72b054a4
2011-11-03 Mikael Morin <mikael@gcc.gnu.org>
+ * trans-array.c (gfc_trans_preloop_setup): Use loop's dimension instead
+ of array's dimention. Check that it is indeed the same.
+
+2011-11-03 Mikael Morin <mikael@gcc.gnu.org>
+
* trans-array.c (gfc_trans_preloop_setup): Remove redundant assertion.
Special case outermost loop.
if (dim >= info->dimen)
continue;
+ gcc_assert (info->dimen == loop->dimen);
if (info->ref)
ar = &info->ref->u.ar;
else
ar = NULL;
- if (dim == info->dimen - 1)
+ if (dim == loop->dimen - 1)
i = 0;
else
i = dim + 1;
gcc_assert (i == loop->order[i]);
i = loop->order[i];
- if (dim == info->dimen - 1)
+ if (dim == loop->dimen - 1)
{
stride = gfc_conv_array_stride (info->descriptor, info->dim[i]);