Add testsuite from OpenUH

llvm-svn: 208472

1 files changed, 38 insertions, 0 deletions

diff --git a/openmp/testsuite/c/omp_parallel_for_if.c b/openmp/testsuite/c/omp_parallel_for_if.c
new file mode 100644
index 00000000000..a5de0a9332f
--- /dev/null
+++ b/openmp/testsuite/c/omp_parallel_for_if.c
@@ -0,0 +1,38 @@
+<ompts:test>
+<ompts:testdescription>Test which checks the omp parallel for if directive. Needs at least two threads.</ompts:testdescription>
+<ompts:ompversion>2.0</ompts:ompversion>
+<ompts:directive>omp parallel for if</ompts:directive>
+<ompts:dependences></ompts:dependences>
+<ompts:testcode>
+#include <stdio.h>
+#include <math.h>
+#include "omp_testsuite.h"
+
+int <ompts:testcode:functionname>omp_parallel_for_if</ompts:testcode:functionname>(FILE * logFile){
+    int known_sum;
+    <ompts:orphan:vars>
+    int num_threads;
+    int sum, sum2;
+    int i;
+    int control;
+    </ompts:orphan:vars>
+    control = 0;
+    num_threads=0;
+    sum = 0;
+    sum2 = 0;
+
+#pragma omp parallel for private(i) <ompts:check>if (control==1)</ompts:check>
+    <ompts:orphan>
+    for (i=0; i <= LOOPCOUNT; i++)
+    {
+        num_threads = omp_get_num_threads();
+	sum = sum + i;
+    } /*end of for*/
+
+    </ompts:orphan>
+    known_sum = (LOOPCOUNT * (LOOPCOUNT + 1)) / 2;
+    fprintf (logFile, "Number of threads determined by omp_get_num_threads: %d\n", num_threads);
+    return (known_sum == sum && num_threads == 1);
+} /* end of check_paralel_for_private */
+</ompts:testcode>
+</ompts:test>