[Openmp-commits] [openmp] r258695 - omp_barrier.c test fixed in order to reliably and faster run on any number of processors

[Andrey Churbanov via Openmp-commits]

Author: achurbanov
Date: Mon Jan 25 10:52:10 2016
New Revision: 258695

URL: http://llvm.org/viewvc/llvm-project?rev=258695&view=rev
Log:
omp_barrier.c test fixed in order to reliably and faster run on any number of processors

Modified:
    openmp/trunk/runtime/test/barrier/omp_barrier.c

Modified: openmp/trunk/runtime/test/barrier/omp_barrier.c
URL: http://llvm.org/viewvc/llvm-project/openmp/trunk/runtime/test/barrier/omp_barrier.c?rev=258695&r1=258694&r2=258695&view=diff
==============================================================================
--- openmp/trunk/runtime/test/barrier/omp_barrier.c (original)
+++ openmp/trunk/runtime/test/barrier/omp_barrier.c Mon Jan 25 10:52:10 2016
@@ -15,7 +15,7 @@ int test_omp_barrier()
     int rank;
     rank = omp_get_thread_num ();
     if (rank ==1) {
-      my_sleep(SLEEPTIME);
+      my_sleep(((double)SLEEPTIME)/REPETITIONS); // give 1 sec to whole test
       result2 = 3;
     }
     #pragma omp barrier
@@ -31,10 +31,14 @@ 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;
 }