40 lines
770 B
C
40 lines
770 B
C
// RUN: %gdb-compile-and-run 2>&1 | tee %t.out | FileCheck %s
|
|
|
|
#include "../ompt_plugin.h"
|
|
#include <omp.h>
|
|
#include <pthread.h>
|
|
#include <stdio.h>
|
|
#include <unistd.h>
|
|
|
|
void f(int i) {
|
|
if (i <= 0) {
|
|
ompd_tool_test(0);
|
|
} else {
|
|
printf("f(%i) start task 1\n", i);
|
|
#pragma omp task
|
|
f(i - 1);
|
|
printf("f(%i) start task 2\n", i);
|
|
#pragma omp task
|
|
f(i - 1);
|
|
printf("f(%i) start task 3\n", i);
|
|
#pragma omp task
|
|
f(i - 1);
|
|
#pragma omp taskwait
|
|
}
|
|
}
|
|
|
|
int main() {
|
|
printf("Application: Process %d started.\n", getpid());
|
|
omp_set_num_threads(8);
|
|
omp_set_max_active_levels(10);
|
|
|
|
#pragma omp parallel sections
|
|
{ f(4); }
|
|
|
|
return 0;
|
|
}
|
|
|
|
// CHECK-NOT: OMPT-OMPD mismatch
|
|
// CHECK-NOT: Python Exception
|
|
// CHECK-NOT: The program is not being run.
|