1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
// This fails when optimized for now.
// RUN: %libomptarget-compile-run-and-check-generic
// XUN: %libomptarget-compileopt-run-and-check-generic
#include <omp.h>
#include <stdio.h>
int main() {
// TODO: Test all ICVs on all levels
int o_lvl = 111, i_lvl = 222, o_tid = 333, i_tid = 333, o_nt = 444,
i_nt = 555;
#pragma omp target teams map(tofrom : o_lvl, i_lvl, o_tid, i_tid, o_nt, i_nt) \
num_teams(2) thread_limit(64)
{
omp_set_max_active_levels(1);
if (omp_get_team_num() == 0) {
#pragma omp parallel num_threads(64)
if (omp_get_thread_num() == omp_get_num_threads() - 1) {
o_lvl = omp_get_level();
o_tid = omp_get_thread_num();
o_nt = omp_get_num_threads();
#pragma omp parallel num_threads(64)
if (omp_get_thread_num() == omp_get_num_threads() - 1) {
i_lvl = omp_get_level();
i_tid = omp_get_thread_num();
i_nt = omp_get_num_threads();
}
}
}
}
if (o_lvl == 1 && o_tid == o_nt - 1 && o_nt >= 1 && i_lvl == 2 &&
i_tid == 0 && i_nt == 1) {
// CHECK: Success
printf("Success\n");
return 0;
}
printf("outer: lvl: %i, tid: %i, nt: %i\n", o_lvl, o_tid, o_nt);
printf("inner: lvl: %i, tid: %i, nt: %i\n", i_lvl, i_tid, i_nt);
return 1;
}
|
