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