Add testsuite from OpenUH

llvm-svn: 208472

1 files changed, 65 insertions, 0 deletions

diff --git a/openmp/testsuite/c/omp_parallel_sections_private.c b/openmp/testsuite/c/omp_parallel_sections_private.c
new file mode 100644
index 00000000000..f1819707829
--- /dev/null
+++ b/openmp/testsuite/c/omp_parallel_sections_private.c
@@ -0,0 +1,65 @@
+<ompts:test>
+<ompts:testdescription>Test which checks the omp parallel sections private directive.</ompts:testdescription>
+<ompts:ompversion>2.0</ompts:ompversion>
+<ompts:directive>omp parallel sections private</ompts:directive>
+<ompts:dependences>omp critical</ompts:dependences>
+<ompts:testcode>
+#include <stdio.h>
+#include "omp_testsuite.h"
+
+int <ompts:testcode:functionname>omp_parallel_sections_private</ompts:testcode:functionname>(FILE * logFile){
+  <ompts:orphan:vars>
+  int sum;
+  int sum0;
+  int i;
+  </ompts:orphan:vars>
+  int known_sum;
+  sum = 7;
+  sum0=0;
+
+<ompts:orphan>
+#pragma omp parallel sections private(<ompts:check>sum0,</ompts:check> i)
+  {
+#pragma omp section 
+    {
+      <ompts:check>
+      sum0=0;
+      </ompts:check>
+      for (i=1;i<400;i++)
+	sum0=sum0+i;
+#pragma omp critical
+      {
+	sum= sum+sum0;
+      }                         /*end of critical */
+    }    
+#pragma omp section
+    {
+      <ompts:check>
+      sum0=0;
+      </ompts:check>
+      for(i=400;i<700;i++)
+	sum0=sum0+i;
+#pragma omp critical
+      {
+	sum= sum+sum0;
+      }                         /*end of critical */
+    }
+#pragma omp section
+    {
+      <ompts:check>
+      sum0=0;
+      </ompts:check>
+      for(i=700;i<1000;i++)
+	sum0=sum0+i;
+#pragma omp critical
+      {
+	sum= sum+sum0;
+      }                         /*end of critical */
+    }               
+  }        /*end of paralell sections*/
+</ompts:orphan>
+known_sum=(999*1000)/2+7;
+return (known_sum==sum); 
+}                              /* end of check_section_private*/
+</ompts:testcode>
+</ompts:test>