--- gcc-4.7-20120128/gcc/fortran/resolve.c.~1~	2012-01-27 14:59:04.000000000 +0100
+++ gcc-4.7-20120128/gcc/fortran/resolve.c	2012-01-29 10:36:17.000000000 +0100
@@ -1582,6 +1582,7 @@ resolve_procedure_expression (gfc_expr* 
 }
 
 
+#if 0
 gfc_array_spec *
 symbol_as (gfc_symbol *sym)
 {
@@ -1590,6 +1591,7 @@ symbol_as (gfc_symbol *sym)
   else
     return sym->as;
 }
+#endif
 
 
 /* Resolve an actual argument list.  Most of the time, this is just