* trans-array.c (gfc_conv_expr_descriptor): Move ndim initialization
earlier.
From-SVN: r180140
+2011-10-18 Mikael Morin <mikael@gcc.gnu.org>
+
+ * trans-array.c (gfc_conv_expr_descriptor): Move ndim initialization
+ earlier.
+
2011-10-18 Janus Weil <janus@gcc.gnu.org>
PR fortran/47023
tree to;
tree base;
+ ndim = info->ref ? info->ref->u.ar.dimen : info->dimen;
+
if (se->want_coarray)
{
codim = gfc_get_corank (expr);
else
base = NULL_TREE;
- ndim = info->ref ? info->ref->u.ar.dimen : info->dimen;
for (n = 0; n < ndim; n++)
{
stride = gfc_conv_array_stride (desc, n);