From: Richard Biener <rguenther@suse.de>
Date: Wed, 29 Oct 2025 10:49:06 +0000 (+0100)
Subject: Testcase for PR70102
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=062e2057265ed6997d7c93c9e35ca1fce5c038be;p=thirdparty%2Fgcc.git

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 --git a/gcc/testsuite/gfortran.dg/vect/pr70102.f b/gcc/testsuite/gfortran.dg/vect/pr70102.f
new file mode 100644
index 00000000000..b6a2878a06e
--- /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 } } }