Lines Matching defs:test

13   subroutine test(da, dp)  subroutine
14     real, target :: y, da
15     procedure(f) dp
16     procedure(f), pointer :: lpp
18     type(t) :: a1 = t() ! ok
19     type(t) :: a2 = t(rp=x) ! ok
20     type(t) :: a3 = t(pp=f) ! ok
21     type(t) :: a4 = t(pp=ext) ! ok
23     type(t) :: a5 = t(rp=y)
25     type(t) :: a6 = t(rp=da)
27     type(t) :: a7 = t(pp=lpp)
29     type(t) :: a8 = t(pp=internal)
31     type(t) :: a9 = t(pp=dp)
33     real function internal()