1! { dg-do run }
2!
3! PR fortran/37253
4!
5! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
6
7module myMod
8
9  CONTAINS
10
11  real function proc3( arg1 )
12     integer :: arg1
13     proc3 = arg1+7
14  end function proc3
15
16  subroutine proc4( arg1 )
17     procedure(real), pointer :: arg1
18     if (arg1(0)/=7) call abort()
19  end subroutine proc4
20
21end module myMod
22
23program myProg
24  use myMod
25  PROCEDURE (real), POINTER :: p => NULL()
26  p => proc3
27  call proc4( p )
28end program myProg
29
30