1409Sohair! { dg-do compile } 2409Sohair! { dg-options "-Wall" } 3409Sohairmodule foo 4409Sohair integer, private :: i ! { dg-warning "Unused PRIVATE" } 5409Sohair integer, private :: j = 0 6409Sohaircontains 7409Sohair subroutine bar 8409Sohair j = j + 1 9409Sohair end subroutine bar 10409Sohairend module foo 11409Sohair 12409Sohairmodule bar 13409Sohair private 14409Sohair integer :: i ! { dg-warning "Unused PRIVATE" } 15409Sohairend module bar 16409Sohair