+
−! { dg-do compile }
+
−! { dg-require-visibility "" }
+
−!
+
−! PR 52909: [F03] Procedure pointers not private to modules
+
−!
+
−! Contributed by Andrew Benson <abenson@caltech.edu>
+
−
+
−module Module1
+
−  procedure(), pointer, private :: procPtr => null()
+
−end module
+
−
+
−module Module2
+
−  procedure(), pointer, private :: procPtr => null()
+
−end module
+
−
+
−program Test
+
−  use Module1
+
−  use Module2
+
−end program