blob: fcf6df8d4ab42afa81972503c586b09d28e2033a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { dg-do compile }
! { dg-options "-Wall" }
module foo
integer, private :: i ! { dg-warning "Unused PRIVATE" }
integer, private :: j = 0
contains
subroutine bar
j = j + 1
end subroutine bar
end module foo
module bar
private
integer :: i ! { dg-warning "Unused PRIVATE" }
end module bar
|