https://gcc.gnu.org/g:062e2057265ed6997d7c93c9e35ca1fce5c038be
commit r16-4705-g062e2057265ed6997d7c93c9e35ca1fce5c038be Author: Richard Biener <[email protected]> Date: Wed Oct 29 11:49:06 2025 +0100 Testcase for PR70102 We are now able to vectorize the PR70102 testcase using a SLP reduction chain. PR tree-optimization/70102 * gfortran.dg/vect/pr70102.f: New testcase. Diff: --- gcc/testsuite/gfortran.dg/vect/pr70102.f | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/gcc/testsuite/gfortran.dg/vect/pr70102.f b/gcc/testsuite/gfortran.dg/vect/pr70102.f new file mode 100644 index 000000000000..b6a2878a06e4 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/vect/pr70102.f @@ -0,0 +1,21 @@ +! { dg-do compile } +! { dg-additional-options "-Ofast" } + subroutine test (x,y,z) + integer x,y,z + real*8 a(5,x,y,z),b(5,x,y,z) + real*8 c + + c = 0.0d0 + do k=1,z + do j=1,y + do i=1,x + do l=1,5 + c = c + a(l,i,j,k)*b(l,i,j,k) + enddo + enddo + enddo + enddo + write(30,*)'c ==',c + return + end +! { dg-final { scan-tree-dump "vectorizing a reduction chain" "vect" { target vect_double } } }
