gfortran.dg/gomp/pr99928-5.f90: Use proper iteration var
authorTobias Burnus <tobias@codesourcery.com>
Fri, 4 Jun 2021 11:26:40 +0000 (13:26 +0200)
committerTobias Burnus <tobias@codesourcery.com>
Fri, 4 Jun 2021 11:26:40 +0000 (13:26 +0200)
gcc/testsuite/ChangeLog:

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

gcc/testsuite/gfortran.dg/gomp/pr99928-5.f90

index c612aaf..49cbf1e 100644 (file)
@@ -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" } }