// RUN: %libomp-compile-and-run #include #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; }