diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 8a3c98b8f94..62a18ad2882 100644
--- 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 d49ae74af8f..a58e6a57d15 100644
--- 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