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: unassig...@gcc.gnu.org
ReportedBy: bur...@gcc.gnu.org
CC: ja...@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
