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