From f902e467b75671d06d1e9ad3663b8aa9366bc14b Mon Sep 17 00:00:00 2001
From: Jonathan Peyton <jonathan.l.peyton@intel.com>
Date: Mon, 13 Nov 2017 17:44:48 +0000
Subject: [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
---
 openmp/testsuite/fortran/par_do_private.f | 46 -------------------------------
 1 file changed, 46 deletions(-)
 delete mode 100644 openmp/testsuite/fortran/par_do_private.f

(limited to 'openmp/testsuite/fortran/par_do_private.f')

diff --git a/openmp/testsuite/fortran/par_do_private.f b/openmp/testsuite/fortran/par_do_private.f
deleted file mode 100644
index dd39ab98438..00000000000
--- a/openmp/testsuite/fortran/par_do_private.f
+++ /dev/null
@@ -1,46 +0,0 @@
-<ompts:test>
-<ompts:testdescription>Test which checks the omp parallel do private directive.</ompts:testdescription>
-<ompts:ompversion>2.0</ompts:ompversion>
-<ompts:directive>omp parallel do private</ompts:directive>
-<ompts:dependences>par do reduction,omp flush</ompts:dependences>
-<ompts:testcode>
-      SUBROUTINE do_some_work2()
-        IMPLICIT NONE
-        REAL i
-        DOUBLE PRECISION sum
-        INTRINSIC sqrt
-        INCLUDE "omp_testsuite.f"
-        sum = 0.0
-        i = 0
-        DO WHILE (i < LOOPCOUNT)
-           sum = sum + sqrt(i)
-           i = i + 1
-        END DO
-      END
-
-!********************************************************************
-
-      INTEGER FUNCTION <ompts:testcode:functionname>par_do_private</ompts:testcode:functionname>()
-        IMPLICIT NONE
-        INTEGER sum,known_sum, i, i2, i3
-        INCLUDE "omp_testsuite.f"
-        sum = 0
-
-!$omp parallel do reduction(+:sum) <ompts:check>private(i2)</ompts:check> schedule(static,1)
-        DO i=1, LOOPCOUNT
-          i2 = i
-!$omp flush
-          CALL do_some_work2()
-!$omp flush
-          sum = sum + i2
-        END DO
-!$omp end parallel do
-          known_sum = (LOOPCOUNT*(LOOPCOUNT+1))/2
-        IF ( known_sum .EQ. sum ) THEN
-          <testfunctionname></testfunctionname> = 1
-        ELSE
-          <testfunctionname></testfunctionname> = 0
-        END IF
-      END
-</ompts:testcode>
-</ompts:test>
-- 
cgit v1.2.3