From: James Norris <jnorris@codesourcery.com>
To: GCC Patches <gcc-patches@gcc.gnu.org>
Cc: "Joseph S. Myers" <joseph@codesourcery.com>,
Nathan Sidwell <Nathan_Sidwell@mentor.com>,
Jakub Jelinek <jakub@redhat.com>
Subject: [OpenACC 7/7] host_data construct (runtime tests)
Date: Thu, 22 Oct 2015 19:22:00 -0000 [thread overview]
Message-ID: <562936F8.8070302@codesourcery.com> (raw)
In-Reply-To: <56293476.5020801@codesourcery.com>
[-- Attachment #1: Type: text/plain, Size: 295 bytes --]
libgomp/testsuite/libgomp.oacc-c-c++-common/host_data-1.c
b/libgomp/testsuite/libgomp.oacc-c-c++-common/host_data-1.c
libgomp/testsuite/libgomp.oacc-c-c++-common/host_data-2.c
b/libgomp/testsuite/libgomp.oacc-c-c++-common/host_data-2.c
- New runtime tests for host_data.
[-- Attachment #2: p7.patch --]
[-- Type: text/x-patch, Size: 4123 bytes --]
diff --git a/libgomp/testsuite/libgomp.oacc-c-c++-common/host_data-1.c b/libgomp/testsuite/libgomp.oacc-c-c++-common/host_data-1.c
new file mode 100644
index 0000000..15ccb27
--- /dev/null
+++ b/libgomp/testsuite/libgomp.oacc-c-c++-common/host_data-1.c
@@ -0,0 +1,125 @@
+/* { dg-do run { target openacc_nvidia_accel_selected } } */
+/* { dg-additional-options "-lcuda -lcublas -lcudart" } */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <openacc.h>
+#include <cuda.h>
+#include <cuda_runtime_api.h>
+#include <cublas_v2.h>
+
+void
+saxpy_host (int n, float a, float *x, float *y)
+{
+ int i;
+
+ for (i = 0; i < n; i++)
+ y[i] = y[i] + a * x[i];
+}
+
+#pragma acc routine
+void
+saxpy_target (int n, float a, float *x, float *y)
+{
+ int i;
+
+ for (i = 0; i < n; i++)
+ y[i] = y[i] + a * x[i];
+}
+
+int
+main(int argc, char **argv)
+{
+ const int N = 8;
+ int i;
+ float *x_ref, *y_ref;
+ float *x, *y;
+ cublasHandle_t h;
+ float a = 2.0;
+
+ x_ref = (float*) malloc (N * sizeof(float));
+ y_ref = (float*) malloc (N * sizeof(float));
+
+ x = (float*) malloc (N * sizeof(float));
+ y = (float*) malloc (N * sizeof(float));
+
+#pragma acc data copyin (x[0:N]) copy (y[0:N])
+ {
+ float *xp, *yp;
+#pragma acc host_data use_device (x, y)
+ {
+#pragma acc parallel pcopy (xp, yp) present (x, y)
+ {
+ xp = x;
+ yp = y;
+ }
+ }
+
+ if (xp != acc_deviceptr (x) || yp != acc_deviceptr (y))
+ abort ();
+ }
+
+ for (i = 0; i < N; i++)
+ {
+ x[i] = x_ref[i] = 4.0 + i;
+ y[i] = y_ref[i] = 3.0;
+ }
+
+ saxpy_host (N, a, x_ref, y_ref);
+
+ cublasCreate (&h);
+
+#pragma acc data copyin (x[0:N]) copy (y[0:N])
+ {
+#pragma acc host_data use_device (x, y)
+ {
+ cublasSaxpy (h, N, &a, x, 1, y, 1);
+ }
+ }
+
+ for (i = 0; i < N; i++)
+ {
+ if (y[i] != y_ref[i])
+ abort ();
+ }
+
+#pragma acc data create (x[0:N]) copyout (y[0:N])
+ {
+#pragma acc kernels
+ for (i = 0; i < N; i++)
+ y[i] = 3.0;
+
+#pragma acc host_data use_device (x, y)
+ {
+ cublasSaxpy (h, N, &a, x, 1, y, 1);
+ }
+ }
+
+ cublasDestroy (h);
+
+ for (i = 0; i < N; i++)
+ {
+ if (y[i] != y_ref[i])
+ abort ();
+ }
+
+ for (i = 0; i < N; i++)
+ y[i] = 3.0;
+
+#pragma acc data copyin (x[0:N]) copyin (a, N) copy (y[0:N])
+ {
+#pragma acc host_data use_device (x, y)
+ {
+#pragma acc parallel present (x[0:N]) pcopy (y[0:N]) present (a, N)
+ saxpy_target (N, a, x, y);
+ }
+ }
+
+ for (i = 0; i < N; i++)
+ {
+ if (y[i] != y_ref[i])
+ abort ();
+ }
+
+ return 0;
+}
diff --git a/libgomp/testsuite/libgomp.oacc-c-c++-common/host_data-2.c b/libgomp/testsuite/libgomp.oacc-c-c++-common/host_data-2.c
new file mode 100644
index 0000000..511ec64
--- /dev/null
+++ b/libgomp/testsuite/libgomp.oacc-c-c++-common/host_data-2.c
@@ -0,0 +1,50 @@
+/* { dg-do run } */
+
+#include <stdlib.h>
+
+struct by_lightning {
+ int a;
+ int b;
+ int c;
+};
+
+int main (int argc, char* argv[])
+{
+ int x;
+ void *q = NULL, *r = NULL, *p = NULL, *s = NULL, *t = NULL;
+ long u;
+ struct by_lightning on_the_head = {1, 2, 3};
+ int arr[10], *f = NULL;
+ _Complex float cf;
+ #pragma acc enter data copyin (x, arr, on_the_head, cf)
+ #pragma acc host_data use_device (x, arr, on_the_head, cf)
+ {
+ q = &x;
+ {
+ f = &arr[5];
+ r = f;
+ s = &__real__ cf;
+ t = &on_the_head.c;
+ u = (long) &__imag__ cf;
+ #pragma acc parallel copyout(p) present (x, arr, on_the_head, cf)
+ {
+ /* This will not (and must not) call GOACC_deviceptr, but '&x' will be
+ the address on the device (if appropriate) regardless. */
+ p = &x;
+ }
+ }
+ }
+ #pragma acc exit data delete (x)
+
+#if ACC_MEM_SHARED
+ if (q != &x || f != &arr[5] || r != f || s != &(__real__ cf)
+ || t != &on_the_head.c || u != (long) &(__imag__ cf) || p != &x)
+ abort ();
+#else
+ if (q == &x || f == &arr[5] || r != f || s == &(__real__ cf)
+ || t == &on_the_head.c || u == (long) &(__imag__ cf) || p == &x)
+ abort ();
+#endif
+
+ return 0;
+}
next prev parent reply other threads:[~2015-10-22 19:20 UTC|newest]
Thread overview: 33+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-10-22 19:14 [OpenACC 0/7] host_data construct James Norris
2015-10-22 19:15 ` [OpenACC 2/7] host_data construct (C FE) James Norris
2015-10-22 19:15 ` [OpenACC 1/7] host_data construct (C/C++ common) James Norris
2015-10-22 19:16 ` [OpenACC 3/7] host_data construct (C front-end) James Norris
2015-10-22 19:18 ` [OpenACC 4/7] host_data construct (middle end) James Norris
2015-10-22 19:19 ` [OpenACC 5/7] host_data construct (gcc tests) James Norris
2015-10-22 19:20 ` [OpenACC 6/7] host_data construct James Norris
2015-10-22 19:22 ` James Norris [this message]
2015-10-22 20:42 ` [OpenACC 0/7] " Joseph Myers
2015-10-22 20:53 ` James Norris
2015-10-23 16:01 ` [Bulk] " James Norris
2015-10-26 18:36 ` Jakub Jelinek
2015-10-27 15:57 ` Cesar Philippidis
2015-11-02 18:33 ` Julian Brown
2015-11-02 19:29 ` Jakub Jelinek
2015-11-12 11:16 ` Julian Brown
2015-11-18 12:48 ` Julian Brown
2015-11-19 13:13 ` Jakub Jelinek
2015-11-19 14:29 ` Julian Brown
2015-11-19 15:57 ` Jakub Jelinek
2015-11-30 19:34 ` Julian Brown
2015-12-01 8:30 ` Jakub Jelinek
2015-12-02 15:27 ` Tom de Vries
2015-12-02 15:59 ` Thomas Schwinge
2015-12-02 19:16 ` Cesar Philippidis
2015-12-02 19:28 ` Steve Kargl
2015-12-02 19:35 ` Jakub Jelinek
2015-12-02 19:54 ` Cesar Philippidis
2015-12-02 22:14 ` [gomp4] " Thomas Schwinge
2016-04-08 13:41 ` Fortran OpenACC host_data construct ICE (was: [gomp4] Re: [OpenACC 0/7] host_data construct) Thomas Schwinge
2016-02-02 13:57 ` [OpenACC 0/7] host_data construct Thomas Schwinge
2015-11-13 15:31 ` [Bulk] " Jakub Jelinek
2015-12-23 11:02 ` Thomas Schwinge
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=562936F8.8070302@codesourcery.com \
--to=jnorris@codesourcery.com \
--cc=Nathan_Sidwell@mentor.com \
--cc=gcc-patches@gcc.gnu.org \
--cc=jakub@redhat.com \
--cc=joseph@codesourcery.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).