summaryrefslogtreecommitdiffstats
path: root/openmp/testsuite/fortran/omp_task_firstprivate.f
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/fortran/omp_task_firstprivate.f
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/fortran/omp_task_firstprivate.f')
-rw-r--r--openmp/testsuite/fortran/omp_task_firstprivate.f54
1 files changed, 0 insertions, 54 deletions
diff --git a/openmp/testsuite/fortran/omp_task_firstprivate.f b/openmp/testsuite/fortran/omp_task_firstprivate.f
deleted file mode 100644
index ca7759e5c48..00000000000
--- a/openmp/testsuite/fortran/omp_task_firstprivate.f
+++ /dev/null
@@ -1,54 +0,0 @@
-<ompts:test>
-<ompts:testdescription>Test which checks the firstprivate clause of the task directive. We create a set of tasks in a single region. We defines a variable named sum unequal zero which gets declared firstprivate for each task. Now each task calcualtes a sum using this private variable. Before each calcualation step we introduce a flush command so that maybe the private variabel gets bad. At the end we check if the calculated sum was right.</ompts:testdescription>
-<ompts:ompversion>3.0</ompts:ompversion>
-<ompts:directive>omp task firstprivate</ompts:directive>
-<ompts:dependences>omp single,omp critical</ompts:dependences>
-<ompts:testcode>
- INCLUDE "omp_my_sleep.f"
-
- INTEGER FUNCTION <ompts:testcode:functionname>omp_task_firstprivate</ompts:testcode:functionname>()
- IMPLICIT NONE
- INCLUDE "omp_testsuite.f"
- INTEGER j,i
- <ompts:orphan:vars>
- external my_sleep
- INTEGER my_sum
- INTEGER known_sum
- INTEGER rslt
- COMMON /orphvars/ my_sum, known_sum, rslt
- </ompts:orphan:vars>
-
- my_sum = 1234
- known_sum = 1234 + (LOOPCOUNT * (LOOPCOUNT + 1)) / 2
-
-!$omp parallel private(j)
-!$omp single
- do i=1, NUM_TASKS
- <ompts:orphan>
-!$omp task <ompts:check>firstprivate(my_sum)</ompts:check>
- do j = 0, LOOPCOUNT
-!$omp flush
- my_sum = my_sum + j
- end do
-
- ! check if calculated my_sum was right
- if (my_sum .ne. known_sum) then
-!$omp critical
- rslt = rslt + 1
-!$omp end critical
- end if
-!$omp end task
- </ompts:orphan>
- end do
-!$omp end single
-!$omp end parallel
-
- if (rslt .eq. 0) then
- <testfunctionname></testfunctionname> = 1
- else
- <testfunctionname></testfunctionname> = 0
- end if
-
- END FUNCTION
-</ompts:testcode>
-</ompts:test>
OpenPOWER on IntegriCloud