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

[burnus at gcc dot gnu.org]

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

--- Comment #6 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-01-17 09:28:24 UTC ---
(In reply to comment #5)
> Taking this. The patch in comment #4 is not particularly pretty, but at least
> it's simple, it works and shows no testsuite regressions. I should probably
> include a small comment, though.

I think a comment would be useful and I'd prefer a

  if (only_flag && sym->name[0] == '_' && sym->name[1] == '_')

I think it affects __vtab, __def_init, __copy - and, in future, __free. (It
might also affect __vtype_ and __class; I don't know whether they can occur in
a .mod file.)