Message ID | 20101005100948.1836.79333@gimli.local |
---|---|
State | New |
Headers | show |
diff --git a/symbol.c b/symbol.c index cd07b63..b06afe4 100644 --- a/symbol.c +++ b/symbol.c @@ -2049,6 +2049,9 @@ free_components (gfc_component *p) gfc_free_array_spec (p->as); gfc_free_expr (p->initializer); + gfc_free_formal_arglist (p->formal); + gfc_free_namespace (p->formal_ns); + gfc_free (p); } }