| ! 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 = 400 |
| 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" } } |