Index: trans-decl.c
===================================================================
--- trans-decl.c        (revision 192019)
+++ trans-decl.c        (working copy)
@@ -1097,9 +1097,9 @@

       /* Also prefix the mangled name.  */
       if (sym->module)
-       name = gfc_get_string (".__%s_MOD_%s", sym->module, sym->name);
+       name = gfc_get_string ("_F_%s_MOD_%s", sym->module, sym->name);
       else
-       name = gfc_get_string (".%s", sym->name);
+       name = gfc_get_string ("_F_%s", sym->name);

       length = build_decl (input_location,
                           VAR_DECL, get_identifier (name),