diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-04-18 20:59:38 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-04-18 20:59:38 +0200 |
| commit | 36abe8958790744a78e4159c96d8be05d1458ff9 (patch) | |
| tree | 6ee281c2a3bcf72cd82191493519aeaf778bc791 /gcc/fortran/resolve.c | |
| parent | 6f5a366a60e2ee3b3d9ea3500cab1d2de63a6e72 (diff) | |
| download | gcc-36abe8958790744a78e4159c96d8be05d1458ff9.zip gcc-36abe8958790744a78e4159c96d8be05d1458ff9.tar.gz gcc-36abe8958790744a78e4159c96d8be05d1458ff9.tar.bz2 | |
expr.c (find_array_element): Don't copy expr.
2013-04-18 Tobias Burnus <burnus@net-b.de>
* expr.c (find_array_element): Don't copy expr.
* data.c (create_character_initializer): Free expr.
* frontend-passes.c (combine_array_constructor): Ditto.
* match.c (match_typebound_call, gfc_match_select_type): Ditto.
* resolve.c (resolve_typebound_function): Free gfc_ref.
From-SVN: r198068
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 90bce53..6e1f56f 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -5719,6 +5719,8 @@ resolve_typebound_function (gfc_expr* e) correct typespec. */ e->ts = ts; } + else if (new_ref) + gfc_free_ref_list (new_ref); return true; } |