From: Jakub Jelinek <jakub@redhat.com>
Date: Mon, 15 Nov 2021 07:54:52 +0000 (+0100)
Subject: libgomp: Add a testcase for omp_get_num_teams inside of target inside of host teams
X-Git-Tag: basepoints/gcc-13~3055
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=d29445972065f54566402b255d76b2567e23d445;p=thirdparty%2Fgcc.git

libgomp: Add a testcase for omp_get_num_teams inside of target inside of host teams

This is https://github.com/OpenMP/spec/issues/3183
There is an agreement that we should return 1 team inside of target,
even if that target is inside of host teams.  We were doing that
when offloading and not during host fallback, r12-5151 should fix that
even for host fallback.

2021-11-15  Jakub Jelinek  <jakub@redhat.com>

	* testsuite/libgomp.c/teams-5.c: New test.
---

diff --git a/libgomp/testsuite/libgomp.c/teams-5.c b/libgomp/testsuite/libgomp.c/teams-5.c
new file mode 100644
index 000000000000..ad42e05825f5
--- /dev/null
+++ b/libgomp/testsuite/libgomp.c/teams-5.c
@@ -0,0 +1,17 @@
+#include <omp.h>
+#include <stdlib.h>
+
+int
+main ()
+{
+  #pragma omp teams num_teams (2)
+  {
+    if (omp_get_num_teams () != 2)
+      abort ();
+    #pragma omp parallel if (0)
+    #pragma omp target
+    if (omp_get_num_teams () != 1 || omp_get_team_num () != 0)
+      abort ();
+  }
+  return 0;
+}