gcc/testsuite/gfortran.dg/proc_ptr_39.f90

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