diff options
Diffstat (limited to 'openmp/testsuite/fortran/single_nowait.f')
-rw-r--r-- | openmp/testsuite/fortran/single_nowait.f | 50 |
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> |