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 20893144231b189dec6b804a08c83ea0818d4bf1..3f4c87ccb2fc79574a64985225857fc3b59f7ba1 100644 (file)
--- 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 c612aaf9556e768c8b9ea895dbaeda0a5baa0308..49cbf1e8cc28694f1ef3f2b61236724d05618561 100644 (file)
--- 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" } }