5 ! Contributed by mrestelli@gmail.com
12 pure function intf(x) result(y)
13 real, intent(in) :: x(:,:)
14 real :: y(size(x,1),size(x,1),size(x,2))
18 procedure(intf), pointer :: p_fun => null()
25 procedure(intf), pointer :: p_fun2 => null()
27 if (associated(p_fun) .or. associated(p_fun2)) &
31 ! { dg-final { cleanup-modules "mod_a" } }