* trans-array.c (gfc_build_constant_array_constructor): Free array
spec when done.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165041
138bc75d-0d04-0410-961f-
82ee72b054a4
2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
+ * trans-array.c (gfc_build_constant_array_constructor): Free array
+ spec when done.
+
+2010-10-06 Mikael Morin <mikael@gcc.gnu.org>
+
* symbol.c (gfc_copy_formal_args_ppc): Free previous formal arg list
before overwriting it.
tmptype = gfc_get_nodesc_array_type (type, &as, PACKED_STATIC, true);
+ /* as is not needed anymore. */
+ for (i = 0; i < as.rank + as.corank; i++)
+ {
+ gfc_free_expr (as.lower[i]);
+ gfc_free_expr (as.upper[i]);
+ }
+
init = build_constructor (tmptype, v);
TREE_CONSTANT (init) = 1;