integer, target :: i
integer, pointer :: pi
!... ...
if ( associated(pi, target=i) ) !...