diff options
| author | Tom Stellard <tstellar@redhat.com> | 2017-12-15 22:19:32 +0000 |
|---|---|---|
| committer | Tom Stellard <tstellar@redhat.com> | 2017-12-15 22:19:32 +0000 |
| commit | 33e153ad4a87ea320ce3044d2ceb810fc21fe035 (patch) | |
| tree | b8fc6e201c79541c439b30e51088cff5aad0e5b7 /final/testsuite/fortran/omp_critical.f | |
| parent | af6439cb9a43244c2d66ca8ecfb92dd9ceedef2e (diff) | |
Creating release candidate final from release_501 branchsvn-tags/RELEASE_501
git-svn-id: https://llvm.org/svn/llvm-project/openmp/tags/RELEASE_501@320879 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'final/testsuite/fortran/omp_critical.f')
| -rw-r--r-- | final/testsuite/fortran/omp_critical.f | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/final/testsuite/fortran/omp_critical.f b/final/testsuite/fortran/omp_critical.f new file mode 100644 index 0000000..892dd2b --- /dev/null +++ b/final/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> |