summaryrefslogtreecommitdiffstats
path: root/openmp/testsuite/c/omp_parallel_for_ordered.c
diff options
context:
space:
mode:
Diffstat (limited to 'openmp/testsuite/c/omp_parallel_for_ordered.c')
-rw-r--r--openmp/testsuite/c/omp_parallel_for_ordered.c62
1 files changed, 0 insertions, 62 deletions
diff --git a/openmp/testsuite/c/omp_parallel_for_ordered.c b/openmp/testsuite/c/omp_parallel_for_ordered.c
deleted file mode 100644
index b1a4bc9deec..00000000000
--- a/openmp/testsuite/c/omp_parallel_for_ordered.c
+++ /dev/null
@@ -1,62 +0,0 @@
-<ompts:test>
-<ompts:testdescription>Test which checks the omp parallel for ordered directive</ompts:testdescription>
-<ompts:ompversion>2.0</ompts:ompversion>
-<ompts:directive>omp parallel for ordered</ompts:directive>
-<ompts:dependences>omp parallel schedule(static)</ompts:dependences>
-<ompts:testcode>
-#include <stdio.h>
-#include "omp_testsuite.h"
-
-static int last_i = 0;
-int i;
-
-#pragma omp threadprivate(i)
-
-/* Variable ii is used to avoid problems with a threadprivate variable used as a loop
- * index. See test omp_threadprivate_for.
- */
-static int ii;
-#pragma omp threadprivate(ii)
-
-/*!
- Utility function: returns true if the passed argument is larger than
- the argument of the last call of this function.
- */
-static int check_i_islarger2 (int i){
- int islarger;
- islarger = (i > last_i);
- last_i = i;
- return (islarger);
-}
-
-int <ompts:testcode:functionname>omp_parallel_for_ordered</ompts:testcode:functionname>(FILE * logFile){
- <ompts:orphan:vars>
- int sum;
- int is_larger;
- </ompts:orphan:vars>
-
- int known_sum;
- int i;
-
- sum = 0;
- is_larger = 1;
- last_i = 0;
-#pragma omp parallel for schedule(static,1) private(i) <ompts:check>ordered</ompts:check>
- for (i = 1; i < 100; i++)
- {
- ii = i;
- <ompts:orphan>
-<ompts:check>#pragma omp ordered</ompts:check><ompts:crosscheck></ompts:crosscheck>
- {
- is_larger = check_i_islarger2 (ii) && is_larger;
- sum = sum + ii;
- }
- </ompts:orphan>
- }
- known_sum = (99 * 100) / 2;
- fprintf (logFile," known_sum = %d , sum = %d \n", known_sum, sum);
- fprintf (logFile," is_larger = %d\n", is_larger);
- return (known_sum == sum) && is_larger;
-}
-</ompts:testcode>
-</ompts:test>
OpenPOWER on IntegriCloud