0e0bee26e7
The resume thread logic inside __kmp_free_team() is faulty. Only checking b_go for sleep status doesn't wake up distributed barrier. Change to generic check for th_sleep_loc and calling __kmp_null_resume_wrapper(). Fixes: #80664
38 lines
1009 B
C
38 lines
1009 B
C
// RUN: %libomp-compile
|
|
// RUN: env OMP_WAIT_POLICY=passive \
|
|
// RUN: KMP_FORKJOIN_BARRIER_PATTERN='linear,linear' %libomp-run
|
|
// RUN: env OMP_WAIT_POLICY=passive \
|
|
// RUN: KMP_FORKJOIN_BARRIER_PATTERN='tree,tree' %libomp-run
|
|
// RUN: env OMP_WAIT_POLICY=passive \
|
|
// RUN: KMP_FORKJOIN_BARRIER_PATTERN='hyper,hyper' %libomp-run
|
|
// RUN: env OMP_WAIT_POLICY=passive \
|
|
// RUN: KMP_FORKJOIN_BARRIER_PATTERN='dist,dist' %libomp-run
|
|
//
|
|
// LLVM ISSUE 80664: https://github.com/llvm/llvm-project/issues/80664
|
|
//
|
|
// Distributed barrier + OMP_WAIT_POLICY=passive hangs in library termination
|
|
// Reason: the resume logic in __kmp_free_team() was faulty and, when checking
|
|
// for sleep status, didn't look at correct location for distributed barrier.
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
int a = 0;
|
|
|
|
void test_omp_barrier() {
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp task
|
|
{
|
|
#pragma omp atomic
|
|
a++;
|
|
}
|
|
}
|
|
}
|
|
|
|
int main() {
|
|
test_omp_barrier();
|
|
printf("a = %d\n", a);
|
|
return EXIT_SUCCESS;
|
|
}
|