diff options
author | Jonathan Peyton <jonathan.l.peyton@intel.com> | 2017-11-13 17:44:48 +0000 |
---|---|---|
committer | Jonathan Peyton <jonathan.l.peyton@intel.com> | 2017-11-13 17:44:48 +0000 |
commit | f902e467b75671d06d1e9ad3663b8aa9366bc14b (patch) | |
tree | d6de4407663a1054506cd8b97d8a047f411e8cd8 /openmp/testsuite/fortran/omp_task_firstprivate.f | |
parent | 9e3d8f4b39e29e4616e8addb1240530dbdfab2c4 (diff) | |
download | bcm5719-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.f | 54 |
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> |