XFAIL OpenMP/nvptx execution-time hangs for simple nested OpenMP 'target'/'parallel...

... still awaiting proper resolution, of course.

	libgomp/
	PR target/99555
	* testsuite/lib/libgomp.exp
	(check_effective_target_offload_device_nvptx): New.
	* testsuite/libgomp.c/pr99555-1.c <nvptx offload device>: Until
	resolved, make sure that we exit quickly, with error status,
	XFAILed.
	* testsuite/libgomp.c-c++-common/task-detach-6.c: Likewise.
	* testsuite/libgomp.fortran/task-detach-6.f90: Likewise.

diff --git a/libgomp/testsuite/lib/libgomp.exp b/libgomp/testsuite/lib/libgomp.exp
index 72d001186a5767eca406aee151378c5a559d05a4..14dcfdfd00a94fc8bb2d467e98b868aae4f7bda5 100644 (file)
--- a/libgomp/testsuite/lib/libgomp.exp
+++ b/libgomp/testsuite/lib/libgomp.exp
@@ -401,6 +401,18 @@ proc check_effective_target_offload_device_shared_as { } {
     } ]
 }
 
+# Return 1 if using nvptx offload device.
+proc check_effective_target_offload_device_nvptx { } {
+    return [check_runtime_nocache offload_device_nvptx {
+      #include <omp.h>
+      #include "testsuite/libgomp.c-c++-common/on_device_arch.h"
+      int main ()
+       {
+         return !on_device_arch_nvptx ();
+       }
+    } ]
+}
+
 # Return 1 if at least one Nvidia GPU is accessible.
 
 proc check_effective_target_openacc_nvidia_accel_present { } {

diff --git a/libgomp/testsuite/libgomp.c-c++-common/task-detach-6.c b/libgomp/testsuite/libgomp.c-c++-common/task-detach-6.c
index 119d7f52f8fc86613b44f913f8289f632eb7f230..f18b57bf0477c0e35d7fb37d0fdb45de4b536895 100644 (file)
--- a/libgomp/testsuite/libgomp.c-c++-common/task-detach-6.c
+++ b/libgomp/testsuite/libgomp.c-c++-common/task-detach-6.c
@@ -2,6 +2,8 @@
 
 #include <omp.h>
 #include <assert.h>
+#include <unistd.h> // For 'alarm'.
+
 #include "on_device_arch.h"
 
 /* Test tasks with detach clause on an offload device.  Each device
@@ -12,7 +14,8 @@ int main (void)
 {
   //TODO See '../libgomp.c/pr99555-1.c'.
   if (on_device_arch_nvptx ())
-    __builtin_abort (); //TODO Until resolved, skip, with error status.
+    alarm (4); /*TODO Until resolved, make sure that we exit quickly, with error status.
+                { dg-xfail-run-if "PR99555" { offload_device_nvptx } } */
 
   int x = 0, y = 0, z = 0;
   int thread_count;

diff --git a/libgomp/testsuite/libgomp.c/pr99555-1.c b/libgomp/testsuite/libgomp.c/pr99555-1.c
index 0dc17bfa3371bf06403c20f0446eaa837aa470e2..bd33b93716bf6c426c503a99970dc003b06e85e5 100644 (file)
--- a/libgomp/testsuite/libgomp.c/pr99555-1.c
+++ b/libgomp/testsuite/libgomp.c/pr99555-1.c
@@ -2,12 +2,15 @@
 
 // { dg-additional-options "-O0" }
 
+#include <unistd.h> // For 'alarm'.
+
 #include "../libgomp.c-c++-common/on_device_arch.h"
 
 int main (void)
 {
   if (on_device_arch_nvptx ())
-    __builtin_abort (); //TODO Until resolved, skip, with error status.
+    alarm (4); /*TODO Until resolved, make sure that we exit quickly, with error status.
+                { dg-xfail-run-if "PR99555" { offload_device_nvptx } } */
 
 #pragma omp target
 #pragma omp parallel // num_threads(1)

diff --git a/libgomp/testsuite/libgomp.fortran/task-detach-6.f90 b/libgomp/testsuite/libgomp.fortran/task-detach-6.f90
index bd0beb6317909132d540a3838b611e120e24d2f5..e4373b4c6f14e3d053b58b4caa221065f7084a49 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/task-detach-6.f90
+++ b/libgomp/testsuite/libgomp.fortran/task-detach-6.f90
@@ -21,7 +21,8 @@ program task_detach_6
 
   !TODO See '../libgomp.c/pr99555-1.c'.
   if (on_device_arch_nvptx () /= 0) then
-     error stop !TODO Until resolved, skip, with error status.
+     call alarm (4, 0); !TODO Until resolved, make sure that we exit quickly, with error status.
+     ! { dg-xfail-run-if "PR99555" { offload_device_nvptx } }
   end if
 
   !$omp target map (tofrom: x, y, z) map (from: thread_count)