From 77ef339456ff898de80654000f519cbd80735fd3 Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Mon, 14 Oct 2019 10:48:42 +0200 Subject: [PATCH] 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 --- libgomp/ChangeLog | 6 ++++++ 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 + + 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 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