procedure pointer with implicit interface problem

Hello. I get the following output* with the code below. Am I using the pointer procedure with implicit interface in the correct way?

procedure pointer with implicit interface:

7781897

procedure pointer with explicit interface:

5

program main 
 implicit none
 procedure(),pointer :: prA
 procedure(w_interface),pointer :: prB
 abstract interface
 subroutine w_interface(j)
 implicit none
 integer,intent(in),dimension(:) :: j
 end subroutine 
 end interface
 integer,dimension(5) :: i
 prA=>print_size
 prB=>print_size
print*, 'procedure pointer with implicit interface:'
 call prA(i)
print*, 'procedure pointer with explicit interface:'
 call prB(i) 
 contains
 subroutine print_size(j)
 implicit none
 integer,intent(in),dimension(:) :: j
 print*, size(j)
 end subroutine
end program 

*compiled with ifort 13.0.1 under linux mint 14