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

[Peyton, Jonathan L via Openmp-commits]

Hans,

We should merge this into the 3.8 branch.

-- Johnny

-----Original Message-----
From: Openmp-commits [mailto:openmp-commits-bounces at lists.llvm.org] On Behalf Of Hans Wennborg via Openmp-commits
Sent: Monday, January 25, 2016 1:49 PM
To: Churbanov, Andrey; Daniel Sanders
Cc: openmp-commits at lists.llvm.org
Subject: Re: [Openmp-commits] [openmp] r258695 - omp_barrier.c test fixed in order to reliably and faster run on any number of processors

Andrey, should we merge this to the 3.8 branch?

On Mon, Jan 25, 2016 at 8:52 AM, Andrey Churbanov via Openmp-commits <openmp-commits at lists.llvm.org> wrote:
> 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;
>  }
>
>
> _______________________________________________
> Openmp-commits mailing list
> Openmp-commits at lists.llvm.org
> http://lists.llvm.org/cgi-bin/mailman/listinfo/openmp-commits
_______________________________________________
Openmp-commits mailing list
Openmp-commits at lists.llvm.org
http://lists.llvm.org/cgi-bin/mailman/listinfo/openmp-commits