diff options
Diffstat (limited to 'openmp/testsuite/fortran/single_private.f')
| -rw-r--r-- | openmp/testsuite/fortran/single_private.f | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/openmp/testsuite/fortran/single_private.f b/openmp/testsuite/fortran/single_private.f deleted file mode 100644 index 7ad4a6a1933..00000000000 --- a/openmp/testsuite/fortran/single_private.f +++ /dev/null @@ -1,51 +0,0 @@ -<ompts:test> -<ompts:testdescription>Test which checks the omp single private directive.</ompts:testdescription> -<ompts:ompversion>2.0</ompts:ompversion> -<ompts:directive>omp singel private</ompts:directive> -<ompts:dependences>omp critical,omp flush,omp single nowait</ompts:dependences> -<ompts:testcode> - INTEGER FUNCTION <ompts:testcode:functionname>single_private</ompts:testcode:functionname>() - IMPLICIT NONE - INTEGER nr_iterations, i - <ompts:orphan:vars> - INTEGER result - INTEGER nr_threads_in_single, myresult, myit - COMMON /orphvars/ result,nr_iterations - </ompts:orphan:vars> - INCLUDE "omp_testsuite.f" - nr_threads_in_single=0 - result=0 - myresult=0 - myit=0 - nr_iterations=0 -!$omp parallel private(i, myresult, myit) -<ompts:orphan> - myresult = 0 - myit = 0 - nr_threads_in_single=0 -!$omp barrier - DO i=0, LOOPCOUNT -1 -!$omp single <ompts:check>private(nr_threads_in_single)</ompts:check> - nr_threads_in_single = 0 -!$omp flush - nr_threads_in_single = nr_threads_in_single + 1 -!$omp flush - myit = myit + 1 - myresult = myresult + nr_threads_in_single -!$omp end single nowait - END DO -!$omp critical - result = result + nr_threads_in_single - nr_iterations = nr_iterations + myit -!$omp end critical -</ompts:orphan> -!$omp end parallel - WRITE(1,*) "result is",result,"nr_it is",nr_iterations - IF ( result .EQ. 0 .AND. nr_iterations .EQ. LOOPCOUNT) THEN - <testfunctionname></testfunctionname> = 1 - ELSE - <testfunctionname></testfunctionname> = 0 - END IF - END -</ompts:testcode> -</ompts:test> |
