1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! Skip this on platforms that don't have the vectorization instructions
! to handle complex types. This test is very slow on these platforms so
! skipping is better then running it unvectorized.
! { dg-skip-if "" { ia64-*-* sparc*-*-* } { "*" } { "" } }
! It can be slow on some x86 CPUs.
! { dg-timeout-factor 2 }
program mymatmul
implicit none
integer, parameter :: kp = 4
integer, parameter :: n = 2000
real(kp), dimension(n,n) :: rr, ri
complex(kp), dimension(n,n) :: a,b,c
real :: t1, t2
integer :: i, j, k
common // a,b,c
do j = 1, n
do k = 1, n
do i = 1, n
c(i,j) = c(i,j) + a(i,k) * b(k,j)
end do
end do
end do
end program mymatmul
! { dg-final { scan-tree-dump "vectorized 1 loops" "vect" } }
! { dg-final { cleanup-tree-dump "vect" } }
|
