gcc/testsuite/gfortran.dg/vect/fast-math-pr38968.f90

   1 ! { dg-timeout-factor 4.0 }
   2 program mymatmul
   3   implicit none
   4   integer, parameter :: kp = 4
   5   integer, parameter :: n = 2000
   6   real(kp), dimension(n,n) :: rr, ri
   7   complex(kp), dimension(n,n) :: a,b,c
   8   real :: t1, t2
   9   integer :: i, j, k
  10
  11   do j = 1, n
  12      do k = 1, n
  13         do i = 1, n
  14            c(i,j) = c(i,j) + a(i,k) * b(k,j)
  15         end do
  16      end do
  17   end do
  18
  19 end program mymatmul
  20
  21 ! { dg-final { scan-tree-dump "vectorized 1 loops" "vect"  { xfail { ia64-*-* sparc*-*-* } } } }
  22 ! { dg-final { cleanup-tree-dump "vect" } }