--- gcc-4.7-20120107/gcc/fortran/resolve.c.~1~	2012-01-05 22:15:52.000000000 +0100
+++ gcc-4.7-20120107/gcc/fortran/resolve.c	2012-01-08 11:49:59.000000000 +0100
@@ -5887,7 +5887,7 @@ resolve_compcall (gfc_expr* e, const cha
 /* Resolve a typebound function, or 'method'. First separate all
    the non-CLASS references by calling resolve_compcall directly.  */
 
-gfc_try
+static gfc_try
 resolve_typebound_function (gfc_expr* e)
 {
   gfc_symbol *declared;