diff options
Diffstat (limited to 'final/testsuite/c/omp_task_final.c')
-rw-r--r-- | final/testsuite/c/omp_task_final.c | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/final/testsuite/c/omp_task_final.c b/final/testsuite/c/omp_task_final.c new file mode 100644 index 0000000..4e00c5f --- /dev/null +++ b/final/testsuite/c/omp_task_final.c @@ -0,0 +1,52 @@ +<ompts:test> +<ompts:testdescription>Test which checks the omp task directive. The idea of the tests is to generate a set of tasks in a single region. We let pause the tasks generated so that other threads get sheduled to the newly opened tasks.</ompts:testdescription> +<ompts:ompversion>3.0</ompts:ompversion> +<ompts:directive>omp task final</ompts:directive> +<ompts:dependences>omp single</ompts:dependences> +<ompts:testcode> +#include <stdio.h> +#include <math.h> +#include "omp_testsuite.h" +#include "omp_my_sleep.h" + + +int <ompts:testcode:functionname>omp_task_final</ompts:testcode:functionname>(FILE * logFile){ + <ompts:orphan:vars> + int tids[NUM_TASKS]; + int i; + </ompts:orphan:vars> + int error; +#pragma omp parallel +{ +#pragma omp single + { + for (i = 0; i < NUM_TASKS; i++) { + <ompts:orphan> + /* First we have to store the value of the loop index in a new variable + * which will be private for each task because otherwise it will be overwritten + * if the execution of the task takes longer than the time which is needed to + * enter the next step of the loop! + */ + int myi; + myi = i; + + #pragma omp task <ompts:check>final(i>=10)</ompts:check> + { + my_sleep (SLEEPTIME); + + tids[myi] = omp_get_thread_num(); + } /* end of omp task */ + </ompts:orphan> + } /* end of for */ + } /* end of single */ +} /*end of parallel */ + +/* Now we ckeck if more than one thread executed the tasks. */ + for (i = 10; i < NUM_TASKS; i++) { + if (tids[10] != tids[i]) + error++; + } + return (error==0); +} /* end of check_parallel_for_private */ +</ompts:testcode> +</ompts:test> |