[gcc/devel/omp/gcc-9] Tweak error return value for acc_set_cuda_stream.

[Thomas Schwinge]

https://gcc.gnu.org/g:64a95e9be2e86f85bc6c5877b5c22578bbe98b47

commit 64a95e9be2e86f85bc6c5877b5c22578bbe98b47
Author: Julian Brown <julian@codesourcery.com>
Date:   Tue Feb 12 06:36:03 2019 -0800

    Tweak error return value for acc_set_cuda_stream.
    
    The return value of acc_set_cuda_stream is unspecified in OpenACC 2.6.
    The testsuite changes might be unnecessary with the current async code.
    
    	libgomp/
    	* oacc-cuda.c (acc_set_cuda_stream): Return 0 on error/invalid
    	arguments.
    	* testsuite/libgomp.oacc-c-c++-common/lib-84.c: Handle unnumbered
    	async stream being an alias for a numbered async stream.
    	* testsuite/libgomp.oacc-c-c++-common/lib-85.c: Likewise.
    
    (cherry picked from openacc-gcc-9-branch commit
    6b0f72aad2030b3efa651652d75ad3d3cc9a76f6)

Diff:
---
 libgomp/ChangeLog.omp                                | 8 ++++++++
 libgomp/oacc-cuda.c                                  | 5 ++++-
 libgomp/testsuite/libgomp.oacc-c-c++-common/lib-84.c | 6 ++++++
 libgomp/testsuite/libgomp.oacc-c-c++-common/lib-85.c | 6 ++++++
 4 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/libgomp/ChangeLog.omp b/libgomp/ChangeLog.omp
index f5c8a47..2da291c 100644
--- a/libgomp/ChangeLog.omp
+++ b/libgomp/ChangeLog.omp
@@ -1,3 +1,11 @@
+2019-02-12  Julian Brown <julian@codesourcery.com>
+
+	* oacc-cuda.c (acc_set_cuda_stream): Return 0 on error/invalid
+	arguments.
+	* testsuite/libgomp.oacc-c-c++-common/lib-84.c: Handle unnumbered
+	async stream being an alias for a numbered async stream.
+	* testsuite/libgomp.oacc-c-c++-common/lib-85.c: Likewise.
+
 2018-10-02  Thomas Schwinge  <thomas@codesourcery.com>
 	    Cesar Philippidis  <cesar@codesourcery.com>
 
diff --git a/libgomp/oacc-cuda.c b/libgomp/oacc-cuda.c
index 1a6946c..1ca7149 100644
--- a/libgomp/oacc-cuda.c
+++ b/libgomp/oacc-cuda.c
@@ -72,6 +72,9 @@ acc_get_cuda_stream (int async)
   return NULL;
 }
 
+/* As of OpenACC 2.6, the return code of this function appears to be
+   unspecified.  We choose to return 1 for success, or 0 for failure.  */
+
 int
 acc_set_cuda_stream (int async, void *stream)
 {
@@ -84,7 +87,7 @@ acc_set_cuda_stream (int async, void *stream)
 
   thr = goacc_thread ();
 
-  int ret = -1;
+  int ret = 0;
   if (thr && thr->dev && thr->dev->openacc.cuda.set_stream_func)
     {
       goacc_aq aq = get_goacc_asyncqueue (async);
diff --git a/libgomp/testsuite/libgomp.oacc-c-c++-common/lib-84.c b/libgomp/testsuite/libgomp.oacc-c-c++-common/lib-84.c
index d793c74..e2d86de 100644
--- a/libgomp/testsuite/libgomp.oacc-c-c++-common/lib-84.c
+++ b/libgomp/testsuite/libgomp.oacc-c-c++-common/lib-84.c
@@ -38,6 +38,12 @@ main (int argc, char **argv)
       if (streams[i] != NULL)
 	abort ();
 
+      /* The no-value async may be an alias for a numbered async stream.
+	 Skip over setting it below else the above NULL check will fail for
+	 the aliased stream.  */
+      if (i == acc_async_noval)
+	continue;
+
       r = cuStreamCreate (&streams[i], CU_STREAM_DEFAULT);
       if (r != CUDA_SUCCESS)
 	{
diff --git a/libgomp/testsuite/libgomp.oacc-c-c++-common/lib-85.c b/libgomp/testsuite/libgomp.oacc-c-c++-common/lib-85.c
index 141c83b..2298241 100644
--- a/libgomp/testsuite/libgomp.oacc-c-c++-common/lib-85.c
+++ b/libgomp/testsuite/libgomp.oacc-c-c++-common/lib-85.c
@@ -38,6 +38,12 @@ main (int argc, char **argv)
       if (streams[i] != NULL)
 	abort ();
 
+      /* The no-value async may be an alias for a numbered async stream.
+         Skip over setting it below else the above NULL check will fail for
+         the aliased stream.  */
+      if (i == acc_async_noval)
+	continue;
+
       r = cuStreamCreate (&streams[i], CU_STREAM_DEFAULT);
       if (r != CUDA_SUCCESS)
 	{