diff options
author | Jakub Jelinek <jakub@redhat.com> | 2019-10-14 08:48:42 +0000 |
---|---|---|
committer | Jakub Jelinek <jakub@redhat.com> | 2019-10-14 08:48:42 +0000 |
commit | b9bd09ab45c166a4e2fcbab1bb2ddd13f37f0d8f (patch) | |
tree | d8daab8a984ddb51ccd3ddd3e147e96651d47a0e /libgomp | |
parent | b2fbf69d7d9ae3bd1db360031f7d584b5327c58f (diff) |
PR libgomp/92081
* testsuite/libgomp.fortran/target-simd.f90: Iterate from 1 rather
than 0.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@276956 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgomp')
-rw-r--r-- | libgomp/ChangeLog | 6 | ||||
-rw-r--r-- | libgomp/testsuite/libgomp.fortran/target-simd.f90 | 4 |
2 files changed, 8 insertions, 2 deletions
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 |