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_get_num_threads.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_get_num_threads.f')
| -rw-r--r-- | openmp/testsuite/fortran/omp_get_num_threads.f | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/openmp/testsuite/fortran/omp_get_num_threads.f b/openmp/testsuite/fortran/omp_get_num_threads.f new file mode 100644 index 00000000000..467ad9f82e4 --- /dev/null +++ b/openmp/testsuite/fortran/omp_get_num_threads.f @@ -0,0 +1,37 @@ +<ompts:test> +<ompts:testdescription>Test which checks that the omp_get_num_threads returns the correct number of threads. Therefor it counts up a variable in a parallelized section and compars this value with the result of the omp_get_num_threads function.</ompts:testdescription> +<ompts:ompversion>2.0</ompts:ompversion> +<ompts:directive>omp_get_num_threads</ompts:directive> +<ompts:dependences>omp critical,somp single</ompts:dependences> +<ompts:testcode> + INTEGER FUNCTION <ompts:testcode:functionname>omp_get_num_threads</ompts:testcode:functionname>() + INTEGER nthreads + INTEGER omp_get_num_threads + <ompts:orphan:vars> + INTEGER nthreads_lib + COMMON /orphvars/ nthreads_lib + </ompts:orphan:vars> + nthreads=0 + nthreads_lib=-1 + +!$omp parallel +!shared(nthreads,nthreads_lib) +!$omp critical + nthreads = nthreads + 1 +!$omp end critical +!$omp single + <ompts:orphan> + <ompts:check> + nthreads_lib=omp_get_num_threads() + </ompts:check> + </ompts:orphan> +!$omp end single +!$omp end parallel + IF (nthreads .EQ. nthreads_lib) THEN + <testfunctionname></testfunctionname> = 1 + ELSE + <testfunctionname></testfunctionname> = 0 + END IF + END +</ompts:testcode> +</ompts:test> |
