Program ex1004
implicit none

integer,pointer::a(:)
integer,target::b(5)=(/1,2,3,4,5/)
a=>b
write(*,*)a
a=>b(1:3)
write(*,*)a
a=>b(1:5:2)
write(*,*)a

stop
end