1! { dg-do compile }
2! { dg-require-effective-target vect_double }
3
4subroutine to_product_of(self,a,b,a1,a2)
5  complex(kind=8) :: self (:)
6  complex(kind=8), intent(in) :: a(:,:)
7  complex(kind=8), intent(in) :: b(:)
8  integer a1,a2
9  self = ZERO
10  do i = 1,a1
11    do j = 1,a2
12      self(i) = self(i) + a(i,j)*b(j)
13    end do
14  end do
15end subroutine
16
17! { dg-final { scan-tree-dump "vectorized 2 loops" "vect" } }
18