summaryrefslogtreecommitdiffstats
path: root/openmp/testsuite/c/omp_parallel_for_ordered.c
diff options
context:
space:
mode:
authorJonathan Peyton <jonathan.l.peyton@intel.com>2017-11-13 17:44:48 +0000
committerJonathan Peyton <jonathan.l.peyton@intel.com>2017-11-13 17:44:48 +0000
commitf902e467b75671d06d1e9ad3663b8aa9366bc14b (patch)
treed6de4407663a1054506cd8b97d8a047f411e8cd8 /openmp/testsuite/c/omp_parallel_for_ordered.c
parent9e3d8f4b39e29e4616e8addb1240530dbdfab2c4 (diff)
downloadbcm5719-llvm-f902e467b75671d06d1e9ad3663b8aa9366bc14b.tar.gz
bcm5719-llvm-f902e467b75671d06d1e9ad3663b8aa9366bc14b.zip
[OpenMP] Remove the unused testsuite/ directory
The testsuite directory is not used or updated and confuses new users to the OpenMP project. These tests were rewritten using the lit format and put under the runtime/test directory. This patch removes the entire testsuite/ directory. Differential Revision: https://reviews.llvm.org/D39767 llvm-svn: 318056
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