Program ex1001
implicit none
character(len=20)::string

integer,target ::a=1
integer,pointer::p
p=>a
write(*,*)p
a=2
write(*,*)p
p=3
write(*,*)a

stop
end