diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2019-10-14 10:48:42 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2019-10-14 10:48:42 +0200 |
| commit | 77ef339456ff898de80654000f519cbd80735fd3 (patch) | |
| tree | d8daab8a984ddb51ccd3ddd3e147e96651d47a0e | |
| parent | e67b6ba62aa896f9b6a42625d754ca3adf58b42b (diff) | |
| download | gcc-77ef339456ff898de80654000f519cbd80735fd3.zip gcc-77ef339456ff898de80654000f519cbd80735fd3.tar.gz gcc-77ef339456ff898de80654000f519cbd80735fd3.tar.bz2 | |
re PR libgomp/92081 (FAIL: libgomp.fortran/target-simd.f90 execution test)
PR libgomp/92081
* testsuite/libgomp.fortran/target-simd.f90: Iterate from 1 rather
than 0.
From-SVN: r276956
| -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 8a3c98b..62a18ad 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 d49ae74..a58e6a5 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 |