From 8ca1fd7674f5ffff8d7ab4b9a4909073e7d26da1 Mon Sep 17 00:00:00 2001 From: Richard Guenther Date: Sat, 28 Mar 2009 10:05:24 +0000 Subject: [PATCH] re PR tree-optimization/38968 (Complex matrix product is not vectorized) 2009-03-28 Richard Guenther 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 --- gcc/ChangeLog | 6 ++++++ gcc/testsuite/ChangeLog | 5 +++++ .../gfortran.dg/vect/fast-math-pr38968.f90 | 21 +++++++++++++++++++ gcc/tree-vect-analyze.c | 2 +- 4 files changed, 33 insertions(+), 1 deletion(-) create mode 100644 gcc/testsuite/gfortran.dg/vect/fast-math-pr38968.f90 diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 738e7db6f868..48715d3178d9 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,9 @@ +2009-03-28 Richard Guenther + + 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 PR tree-optimization/37795 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 41e5d7078af6..e0f7df77cf46 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-03-28 Richard Guenther + + PR tree-optimization/38968 + * gfortran.dg/vect/fast-math-pr38968.f90: New testcase. + 2009-03-28 Richard Guenther 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 index 000000000000..e16131502dba --- /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 0b947143c685..eb5166bac923 100644 --- 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)) { -- 2.47.3