Lines Matching refs:realfunc

11   real function realfunc(x)  function
13     realfunc = x
17     procedure(realfunc), pointer, intent(in) :: p
20     procedure(realfunc), pointer :: p
37     procedure(realfunc), pointer :: procptr
38     procptr => realfunc
47     procedure(realfunc), pointer :: p
50     p => realfunc
52     call s01(realfunc) ! ok
69     call s02(realfunc)
104     procedure(realfunc), pointer :: prf
111     call takesrealfunc1(realfunc) ! ok
115     call takesrealfunc2(realfunc) ! ok
120     call forwardproc(realfunc) ! ok
130     call callsub(realfunc)