This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[openacc, testsuite, committed] Fix libgomp.oacc-fortran/{firstprivate-1,parallel-reduction}.f90 for non-nvidia devices
- From: Tom de Vries <Tom_deVries at mentor dot com>
- To: Jakub Jelinek <jakub at redhat dot com>
- Cc: Thomas Schwinge <thomas at codesourcery dot com>, GCC Patches <gcc-patches at gcc dot gnu dot org>
- Date: Sat, 7 Oct 2017 10:49:28 +0200
- Subject: [openacc, testsuite, committed] Fix libgomp.oacc-fortran/{firstprivate-1,parallel-reduction}.f90 for non-nvidia devices
- Authentication-results: sourceware.org; auth=none
- References: <10fde951-9ceb-e238-7fdd-0468b81d084a@mentor.com>
[ was: Re: [openacc, testsuite, committed] Fix
libgomp.oacc-c-c++-common/parallel-reduction.c for non-nvidia devices ]
On 09/27/2017 02:39 PM, Tom de Vries wrote:
Hi,
this patch makes the test-case
libgomp.oacc-c-c++-common/parallel-reduction.c work for non-nvidia devices.
Committed this similar patch.
Thanks,
- Tom
Fix libgomp.oacc-fortran/{firstprivate-1,parallel-reduction}.f90 for non-nvidia devices
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.
---
libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90 | 2 +-
libgomp/testsuite/libgomp.oacc-fortran/parallel-reduction.f90 | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90
index d3f9093..3866096 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90
@@ -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
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/parallel-reduction.f90 b/libgomp/testsuite/libgomp.oacc-fortran/parallel-reduction.f90
index 31db7e1..d0559a2 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/parallel-reduction.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/parallel-reduction.f90
@@ -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