summaryrefslogtreecommitdiffstats
path: root/openmp/testsuite/fortran/single_nowait.f
diff options
context:
space:
mode:
Diffstat (limited to 'openmp/testsuite/fortran/single_nowait.f')
-rw-r--r--openmp/testsuite/fortran/single_nowait.f50
1 files changed, 0 insertions, 50 deletions
diff --git a/openmp/testsuite/fortran/single_nowait.f b/openmp/testsuite/fortran/single_nowait.f
deleted file mode 100644
index f944af503eb..00000000000
--- a/openmp/testsuite/fortran/single_nowait.f
+++ /dev/null
@@ -1,50 +0,0 @@
-<ompts:test>
-<ompts:testdescription></ompts:testdescription>
-<ompts:ompversion>2.0</ompts:ompversion>
-<ompts:directive>omp single nowait</ompts:directive>
-<ompts:dependences>omp critical,omp atomic</ompts:dependences>
-<ompts:testcode>
- INTEGER FUNCTION <ompts:testcode:functionname>single_nowait</ompts:testcode:functionname>()
- IMPLICIT NONE
- INTEGER result, total_iterations, my_iterations,i
- INCLUDE "omp_testsuite.f"
-<ompts:orphan:vars>
- INTEGER nr_iterations
- COMMON /orphvars/ nr_iterations
-</ompts:orphan:vars>
-
- result=0
- nr_iterations=0
- total_iterations=0
- my_iterations=0
-
-!$omp parallel private(i)
- DO i=0, LOOPCOUNT -1
- <ompts:orphan>
-<ompts:check>!$omp single</ompts:check>
-!$omp atomic
- nr_iterations = nr_iterations + 1
-<ompts:check>!$omp end single nowait</ompts:check>
- </ompts:orphan>
- END DO
-!$omp end parallel
-!$omp parallel private(i,my_iterations)
- my_iterations = 0
- DO i=0, LOOPCOUNT -1
-<ompts:check>!$omp single</ompts:check>
- my_iterations = my_iterations + 1
-<ompts:check>!$omp end single nowait</ompts:check>
- END DO
-!$omp critical
- total_iterations = total_iterations + my_iterations
-!$omp end critical
-!$omp end parallel
- IF ( nr_iterations .EQ. LOOPCOUNT .AND.
- & total_iterations .EQ. LOOPCOUNT ) THEN
- <testfunctionname></testfunctionname> = 1
- ELSE
- <testfunctionname></testfunctionname> = 0
- END IF
- END FUNCTION
-</ompts:testcode>
-</ompts:test>
OpenPOWER on IntegriCloud