program example16
      implicit none

      integer i
      real a(0:10)

      do i = 0, 10
c= access readOnce, (forward(depth=1, dim=1)) :: a
            a(i) = a(i) + a(i+1)
      end do

      end