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_critical.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_critical.f')
| -rw-r--r-- | openmp/testsuite/fortran/omp_critical.f | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/openmp/testsuite/fortran/omp_critical.f b/openmp/testsuite/fortran/omp_critical.f deleted file mode 100644 index 892dd2b767c..00000000000 --- a/openmp/testsuite/fortran/omp_critical.f +++ /dev/null @@ -1,59 +0,0 @@ -<ompts:test> -<ompts:testdescription>Test which checks the omp critical directive by counting up a variable in a parallelized region within a critical section. - -</ompts:testdescription> -<ompts:ompversion>2.0</ompts:ompversion> -<ompts:directive>omp critical</ompts:directive> -<ompts:testcode> - INTEGER FUNCTION <ompts:testcode:functionname>omp_critical</ompts:testcode:functionname>() - IMPLICIT NONE - INTEGER known_sum - <ompts:orphan:vars> - INTEGER i,j,myi,myj, sum - COMMON /orphvars/ sum, myi, myj - </ompts:orphan:vars> - sum = 0 - myi = 0 - myj = 500 -!$omp parallel -!$omp sections - -!$omp section - DO i = 0 , 499 - <ompts:orphan> - <ompts:check> -!$omp critical - </ompts:check> - sum = sum + myi - myi = myi + 1 - <ompts:check> -!$omp end critical - </ompts:check> - </ompts:orphan> - END DO - -!$omp section - DO j = 500 , 999 - <ompts:orphan> - <ompts:check> -!$omp critical - </ompts:check> - sum = sum + myj - myj = myj + 1 - <ompts:check> -!$omp end critical - </ompts:check> - </ompts:orphan> - END DO -!$omp end sections -!$omp end parallel - known_sum = 999*1000/2 - IF ( known_sum .EQ. sum ) THEN - <testfunctionname></testfunctionname> = 1 - ELSE - WRITE (1,*) "Found sum was", sum, "instead", known_sum - <testfunctionname></testfunctionname> = 0 - END IF - END -</ompts:testcode> -</ompts:test> |
