OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libgomp/92081 (FAIL: libgomp.fortran/target-simd.f90 execution test)

Browse Source 
PR libgomp/92081
	* testsuite/libgomp.fortran/target-simd.f90: Iterate from 1 rather
	than 0.

From-SVN: r276956
This commit is contained in:
Jakub Jelinek 2019-10-14 10:48:42 +02:00 committed by Jakub Jelinek
parent e67b6ba62a
commit 77ef339456
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgomp/ChangeLog
View File

@ -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.

4
libgomp/testsuite/libgomp.fortran/target-simd.f90
View File

@ -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