commit adede54ce9d680ab7a0499b76a7f22d3a78d79b8
author Tobias Burnus <burnus@net-b.de> Mon Apr 15 11:40:28 2013 +0200
committer Tobias Burnus <burnus@gcc.gnu.org> Mon Apr 15 11:40:28 2013 +0200
tree ef0f4abbc50df483f7b0062050c9d118e1512842
parent 811b72f9c9e0f1ca002e637d836cfc7a84b5927d

class.c (gfc_find_intrinsic_vtab): Removed unused var.

2013-04-15  Tobias Burnus  <burnus@net-b.de>

        * class.c (gfc_find_intrinsic_vtab): Removed unused var.
        * dependency.c (check_data_pointer_types): Fix check.
        * frontend-passes.c (check_data_pointer_types): Remove
        superfluous statement.
        * parse.c (decode_omp_directive): Add missing break.
        * resolve.c (resolve_typebound_subroutine: Free variable.
        * trans-decl.c (create_function_arglist): Correct condition.

From-SVN: r197961

gcc/fortran/resolve.c

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 @@
 	correct typespec.  */
       code->expr1->ts = ts;
     }
+  else if (new_ref)
+    gfc_free_ref_list (new_ref);
 
   return true;
 }