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

   1 ! { dg-do compile }
   2 ! { dg-require-effective-target vect_double }
   3
   4 subroutine 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
  15 end subroutine
  16
  17 ! { dg-final { scan-tree-dump "vectorized 1 loops" "vect" } }
  18 ! { dg-final { cleanup-tree-dump "vect" } }