From: Jakub Jelinek Date: Mon, 14 Oct 2019 08:48:42 +0000 (+0200) Subject: re PR libgomp/92081 (FAIL: libgomp.fortran/target-simd.f90 execution test) X-Git-Tag: misc/cutover-git~2047 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=77ef339456ff898de80654000f519cbd80735fd3;p=thirdparty%2Fgcc.git 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 --- diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 8a3c98b8f949..62a18ad28822 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,9 @@ +2019-10-14 Jakub Jelinek + + PR libgomp/92081 + * testsuite/libgomp.fortran/target-simd.f90: Iterate from 1 rather + than 0. + 2019-10-11 Tobias Burnus * 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 d49ae74af8fd..a58e6a57d154 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