Add testsuite from OpenUH

llvm-svn: 208472

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>