Message ID | 20101005100948.1836.57965@gimli.local |
---|---|
State | New |
Headers | show |
diff --git a/trans-array.c b/trans-array.c index b32c3ec..93d9b79 100644 --- a/trans-array.c +++ b/trans-array.c @@ -1731,6 +1731,13 @@ gfc_build_constant_array_constructor (gfc_expr * expr, tree type) 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;