program example10

      integer i, imax
      parameter (imax = 3)

      real a(0:imax), b(0:imax)

      do 1 i = 1, (imax-1)
         if (.true.) then
c= stencil readOnce, (pointed(dim=1)) :: b
        a(i) = b(i)
         end if
 1    continue

      end