openmp/testsuite/fortran/single_copyprivate.f

<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>