gcc-4.9/gcc/testsuite/gfortran.dg/proc_ptr_39.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

! { dg-do compile }
!
! 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

! { dg-final { cleanup-modules "Module1 Module2" } }