diff options
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 30cfcd0..684d205 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -5820,6 +5820,8 @@ resolve_typebound_subroutine (gfc_code *code) correct typespec. */ code->expr1->ts = ts; } + else if (new_ref) + gfc_free_ref_list (new_ref); return true; } |