[Bug fortran/51056] [4.7 Regression][OOP] Bogus "Unused module variable '__vtab_domain_Domain_container'"

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=51056

--- Comment #4 from janus at gcc dot gnu.org 2011-11-09 18:32:51 UTC ---
Possible fix:

Index: module.c
===================================================================
--- module.c    (revision 181207)
+++ module.c    (working copy)
@@ -4213,7 +4213,7 @@ load_needed (pointer_info *p)

   mio_symbol (sym);
   sym->attr.use_assoc = 1;
-  if (only_flag)
+  if (only_flag && (strncmp (sym->name, "__", 2) != 0))
     sym->attr.use_only = 1;
   if (p->u.rsym.renamed)
     sym->attr.use_rename = 1;