diff options
Diffstat (limited to 'openmp/testsuite/c/omp_get_num_threads.c')
| -rw-r--r-- | openmp/testsuite/c/omp_get_num_threads.c | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/openmp/testsuite/c/omp_get_num_threads.c b/openmp/testsuite/c/omp_get_num_threads.c new file mode 100644 index 00000000000..4b092ba966e --- /dev/null +++ b/openmp/testsuite/c/omp_get_num_threads.c @@ -0,0 +1,39 @@ +<ompts:test> +<ompts:testdescription>Test which checks that the omp_get_num_threads returns the correct number of threads. Therefor it counts up a variable in a parallelized section and compars this value with the result of the omp_get_num_threads function.</ompts:testdescription> +<ompts:ompversion>2.0</ompts:ompversion> +<ompts:directive>omp_get_num_threads</ompts:directive> +<ompts:testcode> +#include <stdio.h> + +#include "omp_testsuite.h" + +int <ompts:testcode:functionname>omp_get_num_threads</ompts:testcode:functionname> (FILE * logFile) +{ + /* checks that omp_get_num_threads is equal to the number of + threads */ + <ompts:orphan:vars> + int nthreads_lib; + </ompts:orphan:vars> + int nthreads = 0; + + nthreads_lib = -1; + +#pragma omp parallel + { +#pragma omp critical + { + nthreads++; + } /* end of critical */ +#pragma omp single + { +<ompts:orphan> + <ompts:check>nthreads_lib = omp_get_num_threads ();</ompts:check> +</ompts:orphan> + } /* end of single */ + } /* end of parallel */ + + fprintf (logFile, "Counted %d threads. get_num_threads returned %d.\n", nthreads, nthreads_lib); + return (nthreads == nthreads_lib); +} +</ompts:testcode> +</ompts:test> |
