summaryrefslogtreecommitdiffstats
path: root/openmp/testsuite/c/omp_parallel_for_private.c
diff options
context:
space:
mode:
Diffstat (limited to 'openmp/testsuite/c/omp_parallel_for_private.c')
-rw-r--r--openmp/testsuite/c/omp_parallel_for_private.c48
1 files changed, 0 insertions, 48 deletions
diff --git a/openmp/testsuite/c/omp_parallel_for_private.c b/openmp/testsuite/c/omp_parallel_for_private.c
deleted file mode 100644
index 40280cca548..00000000000
--- a/openmp/testsuite/c/omp_parallel_for_private.c
+++ /dev/null
@@ -1,48 +0,0 @@
-<ompts:test>
-<ompts:testdescription>Test which checks the omp parallel for private directive.</ompts:testdescription>
-<ompts:ompversion>2.0</ompts:ompversion>
-<ompts:directive>omp parallel for private</ompts:directive>
-<ompts:dependences>omp parallel for reduction,omp flush</ompts:dependences>
-<ompts:testcode>
-#include <stdio.h>
-#include <math.h>
-#include "omp_testsuite.h"
-
-/*! Utility function to spend some time in a loop */
-static void do_some_work (void){
- int i;
- double sum = 0;
- for(i = 0; i < 1000; i++){
- sum += sqrt (i);
- }
-}
-
-int <ompts:testcode:functionname>omp_parallel_for_private</ompts:testcode:functionname>(FILE * logFile){
- <ompts:orphan:vars>
- int sum;
- int i;
- int i2;
- </ompts:orphan:vars>
-
- sum =0;
- i2=0;
- int known_sum;
-
-#pragma omp parallel for reduction(+:sum) schedule(static,1) private(i) <ompts:check>private(i2)</ompts:check>
- <ompts:orphan>
-
- for (i=1;i<=LOOPCOUNT;i++)
- {
- i2 = i;
-#pragma omp flush
- do_some_work ();
-#pragma omp flush
- sum = sum + i2;
- } /*end of for*/
- </ompts:orphan>
-
- known_sum = (LOOPCOUNT * (LOOPCOUNT + 1)) / 2;
- return (known_sum == sum);
-} /* end of check_parallel_for_private */
-</ompts:testcode>
-</ompts:test>
OpenPOWER on IntegriCloud