4fe17ada55
Hierarchical barrier is an experimental barrier algorithm that uses aspects of machine hierarchy to define the barrier tree structure. This patch fixes offset calculation in hierarchical barrier. The offset is used to store info on a flag about sleeping threads waiting on a location stored in the flag. This commit also fixes a potential deadlock in hierarchical barrier when using infinite blocktime by adjusting the offset value of leaf kids so that it matches the value of leaf state. It also adds testing of default barriers with infinite blocktime, and also tests hierarchical barrier algorithm with both default and infinite blocktime. Patch by Terry Wilmarth and Nawrin Sultana. Differential Revision: https://reviews.llvm.org/D94241
48 lines
1.2 KiB
C
48 lines
1.2 KiB
C
// RUN: %libomp-compile-and-run
|
|
// RUN: %libomp-compile && env KMP_BLOCKTIME=infinite %libomp-run
|
|
// RUN: %libomp-compile && env KMP_PLAIN_BARRIER_PATTERN='hierarchical,hierarchical' KMP_FORKJOIN_BARRIER_PATTERN='hierarchical,hierarchical' %libomp-run
|
|
// RUN: %libomp-compile && env KMP_BLOCKTIME=infinite KMP_PLAIN_BARRIER_PATTERN='hierarchical,hierarchical' KMP_FORKJOIN_BARRIER_PATTERN='hierarchical,hierarchical' %libomp-run
|
|
#include <stdio.h>
|
|
#include "omp_testsuite.h"
|
|
#include "omp_my_sleep.h"
|
|
|
|
int test_omp_barrier()
|
|
{
|
|
int result1;
|
|
int result2;
|
|
result1 = 0;
|
|
result2 = 0;
|
|
|
|
#pragma omp parallel
|
|
{
|
|
int rank;
|
|
rank = omp_get_thread_num ();
|
|
if (rank ==1) {
|
|
my_sleep(((double)SLEEPTIME)/REPETITIONS); // give 1 sec to whole test
|
|
result2 = 3;
|
|
}
|
|
#pragma omp barrier
|
|
if (rank == 2) {
|
|
result1 = result2;
|
|
}
|
|
}
|
|
return (result1 == 3);
|
|
}
|
|
|
|
int main()
|
|
{
|
|
int i;
|
|
int num_failed=0;
|
|
|
|
#ifdef _OPENMP
|
|
omp_set_dynamic(0); // prevent runtime to change number of threads
|
|
omp_set_num_threads(4); // the test expects at least 3 threads
|
|
for(i = 0; i < REPETITIONS; i++) {
|
|
if(!test_omp_barrier()) {
|
|
num_failed++;
|
|
}
|
|
}
|
|
#endif
|
|
return num_failed;
|
|
}
|