* trans-expr.c (gfc_trans_subarray_assign): Free shape before ss.
* trans-io.c (transfer_array_component): Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@90449
138bc75d-0d04-0410-961f-
82ee72b054a4
2004-11-10 Paul Brook <paul@codesourcery.com>
+ PR fortran/18375
+ * trans-expr.c (gfc_trans_subarray_assign): Free shape before ss.
+ * trans-io.c (transfer_array_component): Ditto.
+
+2004-11-10 Paul Brook <paul@codesourcery.com>
+
* invoke.texi: Fix typo.
2004-11-08 Kazu Hirata <kazu@cs.umass.edu>
gfc_add_block_to_block (&block, &loop.pre);
gfc_add_block_to_block (&block, &loop.post);
- gfc_cleanup_loop (&loop);
-
for (n = 0; n < cm->as->rank; n++)
mpz_clear (lss->shape[n]);
gfc_free (lss->shape);
+ gfc_cleanup_loop (&loop);
+
return gfc_finish_block (&block);
}
gfc_add_block_to_block (&block, &loop.pre);
gfc_add_block_to_block (&block, &loop.post);
- gfc_cleanup_loop (&loop);
-
for (n = 0; n < cm->as->rank; n++)
mpz_clear (ss->shape[n]);
gfc_free (ss->shape);
+ gfc_cleanup_loop (&loop);
+
return gfc_finish_block (&block);
}