+2010-02-10 Jakub Jelinek <jakub@redhat.com>
+
+ PR fortran/42309
+ * trans-expr.c (gfc_conv_subref_array_arg): Avoid accessing
+ info->dimen after info has been freed.
+
2010-02-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/42999
tree size;
stmtblock_t body;
int n;
+ int dimen;
gcc_assert (expr->expr_type == EXPR_VARIABLE);
outside the innermost loop, so the overall transfer could be
optimized further. */
info = &rse.ss->data.info;
+ dimen = info->dimen;
tmp_index = gfc_index_zero_node;
- for (n = info->dimen - 1; n > 0; n--)
+ for (n = dimen - 1; n > 0; n--)
{
tree tmp_str;
tmp = rse.loop->loopvar[n];
{
size = gfc_index_one_node;
offset = gfc_index_zero_node;
- for (n = 0; n < info->dimen; n++)
+ for (n = 0; n < dimen; n++)
{
tmp = gfc_conv_descriptor_ubound_get (parmse->expr,
gfc_rank_cst[n]);