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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
/* Offloaded 'constructor' and 'destructor' functions. */
#include <omp.h>
#pragma omp declare target
static void
__attribute__((constructor))
initHD1()
{
__builtin_printf("%s, %d\n", __FUNCTION__, omp_is_initial_device());
}
static void
__attribute__((constructor))
initHD2()
{
__builtin_printf("%s, %d\n", __FUNCTION__, omp_is_initial_device());
}
static void
__attribute__((destructor))
finiHD1()
{
__builtin_printf("%s, %d\n", __FUNCTION__, omp_is_initial_device());
}
static void
__attribute__((destructor))
finiHD2()
{
__builtin_printf("%s, %d\n", __FUNCTION__, omp_is_initial_device());
}
#pragma omp end declare target
static void
__attribute__((constructor))
initH1()
{
__builtin_printf("%s, %d\n", __FUNCTION__, omp_is_initial_device());
}
static void
__attribute__((destructor))
finiH2()
{
__builtin_printf("%s, %d\n", __FUNCTION__, omp_is_initial_device());
}
int main()
{
int c = 0;
__builtin_printf("%s:%d, %d\n", __FUNCTION__, ++c, omp_is_initial_device());
#pragma omp target map(c)
{
__builtin_printf("%s:%d, %d\n", __FUNCTION__, ++c, omp_is_initial_device());
}
#pragma omp target map(c)
{
__builtin_printf("%s:%d, %d\n", __FUNCTION__, ++c, omp_is_initial_device());
}
__builtin_printf("%s:%d, %d\n", __FUNCTION__, ++c, omp_is_initial_device());
return 0;
}
/* The order is undefined, in which same-priority 'constructor' functions, and 'destructor' functions are run.
{ dg-output {init[^,]+, 1[\r\n]+} }
{ dg-output {init[^,]+, 1[\r\n]+} }
{ dg-output {init[^,]+, 1[\r\n]+} }
{ dg-output {main:1, 1[\r\n]+} }
{ dg-output {initHD[^,]+, 0[\r\n]+} { target offload_device } }
{ dg-output {initHD[^,]+, 0[\r\n]+} { target offload_device } }
{ dg-output {main:2, 1[\r\n]+} { target { ! offload_device } } }
{ dg-output {main:2, 0[\r\n]+} { target offload_device } }
{ dg-output {main:3, 1[\r\n]+} { target { ! offload_device } } }
{ dg-output {main:3, 0[\r\n]+} { target offload_device } }
{ dg-output {main:4, 1[\r\n]+} }
{ dg-output {finiHD[^,]+, 0[\r\n]+} { target offload_device } }
{ dg-output {finiHD[^,]+, 0[\r\n]+} { target offload_device } }
{ dg-output {fini[^,]+, 1[\r\n]+} }
{ dg-output {fini[^,]+, 1[\r\n]+} }
{ dg-output {fini[^,]+, 1[\r\n]+} }
*/
|
