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