--- gcc-4.7-20111119/gcc/fortran/module.c.~1~	2011-11-16 22:37:43.000000000 +0100
+++ gcc-4.7-20111119/gcc/fortran/module.c	2011-11-20 15:43:44.000000000 +0100
@@ -433,7 +433,7 @@ resolve_fixups (fixup_t *f, void *gp)
    to convert the symtree name of a derived-type to the symbol name or to
    the name of the associated generic function.  */
 
-const char *
+static const char *
 dt_lower_string (const char *name)
 {
   if (name[0] != (char) TOLOWER ((unsigned char) name[0]))
@@ -448,7 +448,7 @@ dt_lower_string (const char *name)
    symtree/symbol name of the associated generic function start with a lower-
    case character.  */
 
-const char *
+static const char *
 dt_upper_string (const char *name)
 {
   if (name[0] != (char) TOUPPER ((unsigned char) name[0]))