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

Fix libgomp.oacc-fortran/{firstprivate-1,parallel-reduction}.f90 for non-nvidia devices

Browse Source 
2017-10-07  Tom de Vries  <tom@codesourcery.com>

	* testsuite/libgomp.oacc-fortran/firstprivate-1.f90 (firstprivate):
	Remove acc_device_nvidia references.
	* testsuite/libgomp.oacc-fortran/parallel-reduction.f90 (reduction):
	Same.

From-SVN: r253507
This commit is contained in:
Tom de Vries 2017-10-07 08:46:00 +00:00 committed by Tom de Vries
parent 068333113e
commit e923330e1b
3 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgomp/ChangeLog
View File

@ -1,3 +1,10 @@
2017-10-07 Tom de Vries <tom@codesourcery.com>
* testsuite/libgomp.oacc-fortran/firstprivate-1.f90 (firstprivate):
Remove acc_device_nvidia references.
* testsuite/libgomp.oacc-fortran/parallel-reduction.f90 (reduction):
Same.
2017-10-05 Tom de Vries <tom@codesourcery.com>
* testsuite/libgomp.oacc-c-c++-common/loop-red-g-1.c (main): Remove

2
libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90
View File

@ -5,7 +5,7 @@ program firstprivate
integer :: a, b(Nupper), c, d, n
include "openacc_lib.h"
if (acc_get_device_type () .eq. acc_device_nvidia) then
if (acc_get_device_type () .ne. acc_device_host) then
n = Nupper
else
n = 1

4
libgomp/testsuite/libgomp.oacc-fortran/parallel-reduction.f90
View File

@ -15,7 +15,7 @@ program reduction
s2 = s2 + 1
!$acc end parallel
if (acc_get_device_type () .eq. acc_device_nvidia) then
if (acc_get_device_type () .ne. acc_device_host) then
if (s1 .ne. n) call abort
if (s2 .ne. n) call abort
else
@ -29,7 +29,7 @@ program reduction
s2 = 0
call redsub (s1, s2, n)
if (acc_get_device_type () .eq. acc_device_nvidia) then
if (acc_get_device_type () .ne. acc_device_host) then
if (s1 .ne. n) call abort
else
if (s2 .ne. 1) call abort