kmp_gsupport: Fix library initialization with taskgroup

[AndreyChurbanov]

LGTM

[AndreyChurbanov]

runtime/test/tasking/bug_serial_taskgroup.c

6 ↗

(On Diff #67146)

"of not yet done" --> "if mot yet done" - typo?

[Hahnfeld]

runtime/test/tasking/bug_serial_taskgroup.c

6 ↗

(On Diff #67146)

Yes, will fix it in the commit.

openmp/trunk/runtime/src/kmp_gsupport.c

 PARALLEL_LOOP(xexpand(KMP_API_NAME_GOMP_PARALLEL_LOOP_DYNAMIC), kmp_sch_dynamic_chunked)
 PARALLEL_LOOP(xexpand(KMP_API_NAME_GOMP_PARALLEL_LOOP_GUIDED), kmp_sch_guided_chunked)
 PARALLEL_LOOP(xexpand(KMP_API_NAME_GOMP_PARALLEL_LOOP_RUNTIME), kmp_sch_runtime)
 
 
 void
 xexpand(KMP_API_NAME_GOMP_TASKGROUP_START)(void)
 {
-    int gtid = __kmp_get_gtid();
+    int gtid = __kmp_entry_gtid();
     MKLOC(loc, "GOMP_taskgroup_start");
     KA_TRACE(20, ("GOMP_taskgroup_start: T#%d\n", gtid));
 
     __kmpc_taskgroup(&loc, gtid);
 
     return;
 }
 

openmp/trunk/runtime/test/tasking/bug_serial_taskgroup.c

+// RUN: %libomp-compile-and-run
+
+/*
+ GCC failed this test because __kmp_get_gtid() instead of __kmp_entry_gtid()
+ was called in xexpand(KMP_API_NAME_GOMP_TASKGROUP_START)(void).
+ __kmp_entry_gtid() will initialize the runtime if not yet done which does not
+ happen with __kmp_get_gtid().
+ */
+
+int main()
+{
+    #pragma omp taskgroup
+    { }
+
+    return 0;
+}