re PR tree-optimization/38968 (Complex matrix product is not vectorized)

2009-03-28  Richard Guenther  <rguenther@suse.de>

	PR tree-optimization/38968
	* tree-vect-analyze.c (vect_compute_data_ref_alignment):
	Use FLOOR_MOD_EXPR to compute misalignment.

	* gfortran.dg/vect/fast-math-pr38968.f90: New testcase.

From-SVN: r145171

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 738e7db6f868a3517641b93cec3fb098111ec54d..48715d3178d9eeb25d211818066f534a6c0e10e8 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2009-03-28  Richard Guenther  <rguenther@suse.de>
+
+       PR tree-optimization/38968
+       * tree-vect-analyze.c (vect_compute_data_ref_alignment):
+       Use FLOOR_MOD_EXPR to compute misalignment.
+
 2009-03-28  Richard Guenther  <rguenther@suse.de>
 
        PR tree-optimization/37795

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 41e5d7078af6fe5d11fcc284de29acc5df3ba116..e0f7df77cf4659ef893ceb4baa2e2a8718ffdb23 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-03-28  Richard Guenther  <rguenther@suse.de>
+
+       PR tree-optimization/38968
+       * gfortran.dg/vect/fast-math-pr38968.f90: New testcase.
+
 2009-03-28  Richard Guenther  <rguenther@suse.de>
 
        PR tree-optimization/37795

diff --git a/gcc/testsuite/gfortran.dg/vect/fast-math-pr38968.f90 b/gcc/testsuite/gfortran.dg/vect/fast-math-pr38968.f90
new file mode 100644 (file)
index 0000000..e161315
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/vect/fast-math-pr38968.f90
@@ -0,0 +1,21 @@
+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
+
+  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" } }

diff --git a/gcc/tree-vect-analyze.c b/gcc/tree-vect-analyze.c
index 0b947143c68575690de459d4e15f34cd4e3c78b3..eb5166bac92371d7ea626e573b45610c8ca4f28c 100644 (file)
--- a/gcc/tree-vect-analyze.c
+++ b/gcc/tree-vect-analyze.c
@@ -1504,7 +1504,7 @@ vect_compute_data_ref_alignment (struct data_reference *dr)
                  && DECL_ALIGN (base) >= TYPE_ALIGN (vectype)));
 
   /* Modulo alignment.  */
-  misalign = size_binop (TRUNC_MOD_EXPR, misalign, alignment);
+  misalign = size_binop (FLOOR_MOD_EXPR, misalign, alignment);
 
   if (!host_integerp (misalign, 1))
     {