From: Tobias Burnus <tobias@codesourcery.com>
Date: Fri, 4 Jun 2021 11:43:21 +0000 (+0200)
Subject: gfortran.dg/gomp/pr99928-5.f90: Use proper iteration var
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=92ffc1f3076c1cd8fbc5ce64bebca558d807ec3e;p=thirdparty%2Fgcc.git

gfortran.dg/gomp/pr99928-5.f90: Use proper iteration var

gcc/testsuite/ChangeLog:

	* gfortran.dg/gomp/pr99928-5.f90: Really use the
	proper iteration variable.

(cherry picked from commit ad3f0ad4bafe377072a53ded468fd9948e659f46)
---

diff --git a/gcc/testsuite/ChangeLog.omp b/gcc/testsuite/ChangeLog.omp
index 20893144231b..3f4c87ccb2fc 100644
--- a/gcc/testsuite/ChangeLog.omp
+++ b/gcc/testsuite/ChangeLog.omp
@@ -1,3 +1,11 @@
+2021-06-04  Tobias Burnus  <tobias@codesourcery.com>
+
+	Backported from master:
+	2021-06-04  Tobias Burnus  <tobias@codesourcery.com>
+
+	* gfortran.dg/gomp/pr99928-5.f90: Really use the
+	proper iteration variable.
+
 2021-06-04  Tobias Burnus  <tobias@codesourcery.com>
 
 	Backported from master:
diff --git a/gcc/testsuite/gfortran.dg/gomp/pr99928-5.f90 b/gcc/testsuite/gfortran.dg/gomp/pr99928-5.f90
index c612aaf9556e..49cbf1e8cc28 100644
--- a/gcc/testsuite/gfortran.dg/gomp/pr99928-5.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/pr99928-5.f90
@@ -88,7 +88,7 @@ subroutine bar ()
   ! { dg-final { scan-tree-dump "omp taskloop\[^\n\r]*lastprivate\\(j10\\)" "gimple" } }
   ! { dg-final { scan-tree-dump "omp simd\[^\n\r]*linear\\(j10:1\\)" "gimple" } }
   !$omp taskloop simd linear (j10) default(none)
-  do j01 = 1, 64
+  do j10 = 1, 64
   end do
   ! { dg-final { scan-tree-dump "omp teams\[^\n\r]*shared\\(j11\\)" "gimple" } }
   ! { dg-final { scan-tree-dump "omp distribute\[^\n\r]*lastprivate\\(j11\\)" "gimple" } }