| <ompts:test> |
| <ompts:testdescription>Test which checks the omp single copyprivate directive.</ompts:testdescription> |
| <ompts:ompversion>2.0</ompts:ompversion> |
| <ompts:directive>omp single copyprivate</ompts:directive> |
| <ompts:dependences>omp parllel,omp critical</ompts:dependences> |
| <ompts:testcode> |
| INTEGER FUNCTION <ompts:testcode:functionname>single_copyprivate</ompts:testcode:functionname>() |
| IMPLICIT NONE |
| INTEGER omp_get_thread_num |
| INCLUDE "omp_testsuite.f" |
| <ompts:orphan:vars> |
| INTEGER i,j,thread,nr_iterations,result |
| COMMON /orphvars/ nr_iterations,result |
| </ompts:orphan:vars> |
| |
| result=0 |
| nr_iterations=0 |
| |
| !$omp parallel private(i,j,thread) |
| <ompts:orphan> |
| DO i=0,LOOPCOUNT-1 |
| thread=OMP_GET_THREAD_NUM() |
| !$omp single |
| nr_iterations=nr_iterations+1 |
| j=i |
| !$omp end single <ompts:check>copyprivate(j)</ompts:check> |
| !$omp critical |
| result=result+j-i; |
| !$omp end critical |
| END DO |
| </ompts:orphan> |
| !$omp end parallel |
| IF(result .EQ. 0 .AND. |
| & nr_iterations .EQ. LOOPCOUNT) THEN |
| <testfunctionname></testfunctionname>=1 |
| ELSE |
| <testfunctionname></testfunctionname>=0 |
| END IF |
| END FUNCTION |
| </ompts:testcode> |
| </ompts:test> |