diff options
Diffstat (limited to 'openmp/testsuite/c/omp_in_parallel.c')
| -rw-r--r-- | openmp/testsuite/c/omp_in_parallel.c | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/openmp/testsuite/c/omp_in_parallel.c b/openmp/testsuite/c/omp_in_parallel.c deleted file mode 100644 index 09b6111c793..00000000000 --- a/openmp/testsuite/c/omp_in_parallel.c +++ /dev/null @@ -1,51 +0,0 @@ -<ompts:test> -<ompts:testdescription>Test which checks that omp_in_parallel returns false when called from a serial region and true when called within a parallel region.</ompts:testdescription> -<ompts:ompversion>2.0</ompts:ompversion> -<ompts:directive>omp_in_parallel</ompts:directive> -<ompts:testcode> -/* - * Checks that false is returned when called from serial region - * and true is returned when called within parallel region. - */ -#include <stdio.h> -#include "omp_testsuite.h" - -int <ompts:testcode:functionname>omp_in_parallel</ompts:testcode:functionname>(FILE * logFile){ - <ompts:orphan:vars> - int serial; - int isparallel; - </ompts:orphan:vars> - - serial = 1; - isparallel = 0; - - <ompts:check> - <ompts:orphan> - serial = omp_in_parallel (); - </ompts:orphan> - -#pragma omp parallel - { -#pragma omp single - { - <ompts:orphan> - isparallel = omp_in_parallel (); - </ompts:orphan> - } - } - </ompts:check> - - <ompts:crosscheck> -#pragma omp parallel - { -#pragma omp single - { - - } - } - </ompts:crosscheck> - - return (!(serial) && isparallel); -} -</ompts:testcode> -</ompts:test> |
