PR libgomp/92081

	* testsuite/libgomp.fortran/target-simd.f90: Iterate from 1 rather
	than 0.

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

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 8a3c98b8f9498b540eca94ac63d3be35d7abc546..62a18ad2882234cea5e10c7fb7665594ee16c3df 100644 (file)
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,9 @@
+2019-10-14  Jakub Jelinek  <jakub@redhat.com>
+
+       PR libgomp/92081
+       * testsuite/libgomp.fortran/target-simd.f90: Iterate from 1 rather
+       than 0.
+
 2019-10-11  Tobias Burnus  <tobias@codesourcery.com>
 
        * testsuite/libgomp.fortran/use_device_addr-1.f90: New.

diff --git a/libgomp/testsuite/libgomp.fortran/target-simd.f90 b/libgomp/testsuite/libgomp.fortran/target-simd.f90
index d49ae74af8fdc2fe23e30264d4df4ae0497a24ff..a58e6a57d15464c25047128b5f91ccbcca8797d9 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/target-simd.f90
+++ b/libgomp/testsuite/libgomp.fortran/target-simd.f90
@@ -10,14 +10,14 @@ program test
   b = 0
 
   !$omp target simd map(to:a) map(from:b)
-  do i = 0, size(a)
+  do i = 1, size(a)
     b(i) = 5.0 * a(i)
   end do
 
   if (any (b - 5.0 *a > 10.0*epsilon(a))) call abort()
 
   !$omp target simd map(to:a) map(from:b)
-  do i = 0, size(a)
+  do i = 1, size(a)
     b(i) = 2.0 * a(i)
   end do
   !$omp end target simd