gcc/testsuite/gfortran.dg/proc_ptr_39.f90

   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
   7 module Module1
   8   procedure(), pointer, private :: procPtr => null()
   9 end module
  10
  11 module Module2
  12   procedure(), pointer, private :: procPtr => null()
  13 end module
  14
  15 program Test
  16   use Module1
  17   use Module2
  18 end program
  19
  20 ! { dg-final { cleanup-modules "Module1 Module2" } }