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

["burnus at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>]

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

             Bug #: 51056
           Summary: [4.7 Regression][OOP] Bogus "Unused module variable
                    '__vtab_domain_Domain_container'"
    Classification: Unclassified
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Keywords: diagnostic
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: burnus@gcc.gnu.org
                CC: janus@gcc.gnu.org


As reported by xarthisius at #gfortran,

the following program gives a bogus warning with -Wall. For one of my local
trees, I get:

Warning: Unused module variable '__vtab_domain_Domain_container' which has been
explicitly imported at (1)

for my other 4.7 tree, I get:

Warning: Unused module variable '__def_init_domain_Domain_container' which has
been explicitly imported at (1)




module domain
   implicit none
   private
   public :: domain_container, dom

   type :: domain_container
      integer :: D_x             !< set to 1 when x-direction exists, 0
otherwise
    contains
      procedure :: init => init_domain_container
   end type domain_container

   type(domain_container) :: dom

   contains
      subroutine init_domain_container(this)
         implicit none
         class(domain_container), intent(inout) :: this
         this%D_x = 0
      end subroutine init_domain_container
end module domain

program ala
   use domain, only: dom
   implicit none
   call dom%init
end program ala