! { dg-do compile }
      subroutine foo(a,c,i,m)
      real a(4,*),b(3,64),c(3,200),d(64)
      integer*8 i,j,k,l,m
      do j=1,m,64
        do k=1,m-j+1
          d(k)=a(4,j-1+k)
          do l=1,3
            b(l,k)=c(l,i)+a(l,j-1+k)
          end do
        end do
        call bar(b,d,i)
      end do
      end

! { dg-final { cleanup-tree-dump "vect" } }