xref: /llvm-project/openmp/runtime/test/tasking/bug_serial_taskgroup.c (revision ad0c42e3a9a185bc904aba3407f9dd5c9b08f67c)
1*ad0c42e3SJonas Hahnfeld // RUN: %libomp-compile-and-run
2*ad0c42e3SJonas Hahnfeld 
3*ad0c42e3SJonas Hahnfeld /*
4*ad0c42e3SJonas Hahnfeld  GCC failed this test because __kmp_get_gtid() instead of __kmp_entry_gtid()
5*ad0c42e3SJonas Hahnfeld  was called in xexpand(KMP_API_NAME_GOMP_TASKGROUP_START)(void).
6*ad0c42e3SJonas Hahnfeld  __kmp_entry_gtid() will initialize the runtime if not yet done which does not
7*ad0c42e3SJonas Hahnfeld  happen with __kmp_get_gtid().
8*ad0c42e3SJonas Hahnfeld  */
9*ad0c42e3SJonas Hahnfeld 
main()10*ad0c42e3SJonas Hahnfeld int main()
11*ad0c42e3SJonas Hahnfeld {
12*ad0c42e3SJonas Hahnfeld     #pragma omp taskgroup
13*ad0c42e3SJonas Hahnfeld     { }
14*ad0c42e3SJonas Hahnfeld 
15*ad0c42e3SJonas Hahnfeld     return 0;
16*ad0c42e3SJonas Hahnfeld }
17