1! { dg-do compile }
2!
3! PR 52909: [F03] Procedure pointers not private to modules
4!
5! Contributed by Andrew Benson <abenson@caltech.edu>
6
7module Module1
8  procedure(), pointer, private :: procPtr => null()
9end module
10
11module Module2
12  procedure(), pointer, private :: procPtr => null()
13end module
14
15program Test
16  use Module1
17  use Module2
18end program
19
20! { dg-final { cleanup-modules "Module1 Module2" } }
21