PR tree-optimization/36119

	* tree-vect-transform.c (vectorizable_assignment): Set NCOPIES to 1
	in case of SLP.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134944 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 29 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.dg/vect/pr36119.f b/gcc/testsuite/gfortran.dg/vect/pr36119.f
new file mode 100644
index 00000000000..d4b11cb3679
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/vect/pr36119.f
@@ -0,0 +1,29 @@
+! { dg-do compile { target { i?86-*-* x86_64-*-* } } } 
+! { dg-options "-O3 -mfpmath=sse -msse2 -ffree-form" } 
+
+SUBROUTINE check_dnucint_ana (dcore)
+  IMPLICIT NONE
+  INTEGER, PARAMETER :: dp=8
+  REAL(dp), DIMENSION(10, 2), INTENT(IN),&
+       OPTIONAL                            :: dcore
+  INTEGER                                  :: i, j
+  REAL(dp)                                 :: delta, nssss, od, rn, ssssm, &
+       ssssp
+  REAL(dp), DIMENSION(10, 2)               :: corem, corep, ncore
+  LOGICAL                                  :: check_value
+
+  delta = 1.0E-8_dp
+  od = 0.5_dp/delta
+  ncore = od * (corep - corem)
+  nssss = od * (ssssp - ssssm)
+  IF (PRESENT(dcore)) THEN
+     DO i = 1, 2
+        DO j = 1, 10
+           IF (.NOT.check_value(ncore(j,i), dcore(j,i), delta, 0.1_dp)) THEN
+           END IF
+        END DO
+     END DO
+  END IF
+END SUBROUTINE check_dnucint_ana
+
+! { dg-final { cleanup-tree-dump "vect" } }