diff options
| author | Jim Cownie <james.h.cownie@intel.com> | 2014-05-10 17:02:09 +0000 |
|---|---|---|
| committer | Jim Cownie <james.h.cownie@intel.com> | 2014-05-10 17:02:09 +0000 |
| commit | 18d8473f185999e418dcb62ee4d8a671c2eacee5 (patch) | |
| tree | d212f5cac426b2be33035984fc56623f92f5ddde /openmp/testsuite/fortran/omp_critical.f | |
| parent | 281f9d0e97dca0594a15341e3c927e2667773104 (diff) | |
| download | bcm5719-llvm-18d8473f185999e418dcb62ee4d8a671c2eacee5.tar.gz bcm5719-llvm-18d8473f185999e418dcb62ee4d8a671c2eacee5.zip | |
Add testsuite from OpenUH
llvm-svn: 208472
Diffstat (limited to 'openmp/testsuite/fortran/omp_critical.f')
| -rw-r--r-- | openmp/testsuite/fortran/omp_critical.f | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/openmp/testsuite/fortran/omp_critical.f b/openmp/testsuite/fortran/omp_critical.f new file mode 100644 index 00000000000..892dd2b767c --- /dev/null +++ b/openmp/testsuite/fortran/omp_critical.f @@ -0,0 +1,59 @@ +<ompts:test> +<ompts:testdescription>Test which checks the omp critical directive by counting up a variable in a parallelized region within a critical section. + +</ompts:testdescription> +<ompts:ompversion>2.0</ompts:ompversion> +<ompts:directive>omp critical</ompts:directive> +<ompts:testcode> + INTEGER FUNCTION <ompts:testcode:functionname>omp_critical</ompts:testcode:functionname>() + IMPLICIT NONE + INTEGER known_sum + <ompts:orphan:vars> + INTEGER i,j,myi,myj, sum + COMMON /orphvars/ sum, myi, myj + </ompts:orphan:vars> + sum = 0 + myi = 0 + myj = 500 +!$omp parallel +!$omp sections + +!$omp section + DO i = 0 , 499 + <ompts:orphan> + <ompts:check> +!$omp critical + </ompts:check> + sum = sum + myi + myi = myi + 1 + <ompts:check> +!$omp end critical + </ompts:check> + </ompts:orphan> + END DO + +!$omp section + DO j = 500 , 999 + <ompts:orphan> + <ompts:check> +!$omp critical + </ompts:check> + sum = sum + myj + myj = myj + 1 + <ompts:check> +!$omp end critical + </ompts:check> + </ompts:orphan> + END DO +!$omp end sections +!$omp end parallel + known_sum = 999*1000/2 + IF ( known_sum .EQ. sum ) THEN + <testfunctionname></testfunctionname> = 1 + ELSE + WRITE (1,*) "Found sum was", sum, "instead", known_sum + <testfunctionname></testfunctionname> = 0 + END IF + END +</ompts:testcode> +</ompts:test> |
