1 2 3 4 5 6 7
! { dg-do compile } ! { dg-options "-Wall -fmodule-private" } ! { dg-require-visibility "" } module bar integer :: i ! { dg-warning "Unused PRIVATE" } end module bar