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