summaryrefslogtreecommitdiffstats
path: root/openmp/testsuite/c/omp_get_num_threads.c
diff options
context:
space:
mode:
Diffstat (limited to 'openmp/testsuite/c/omp_get_num_threads.c')
-rw-r--r--openmp/testsuite/c/omp_get_num_threads.c39
1 files changed, 0 insertions, 39 deletions
diff --git a/openmp/testsuite/c/omp_get_num_threads.c b/openmp/testsuite/c/omp_get_num_threads.c
deleted file mode 100644
index 4b092ba966e..00000000000
--- a/openmp/testsuite/c/omp_get_num_threads.c
+++ /dev/null
@@ -1,39 +0,0 @@
-<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>
OpenPOWER on IntegriCloud