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