Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.c/target-24.c @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 #include <omp.h>
2 #include <stdlib.h>
3
4 int
5 main ()
6 {
7 int d = omp_get_default_device ();
8 int id = omp_get_initial_device ();
9
10 if (d < 0 || d >= omp_get_num_devices ())
11 d = id;
12
13 int a[10] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 };
14 int *b = a;
15 int shared_mem = 0;
16 #pragma omp target map (alloc: shared_mem)
17 shared_mem = 1;
18 if (omp_target_is_present (b, d) != shared_mem)
19 abort ();
20 #pragma omp target enter data map (to: a)
21 if (omp_target_is_present (b, d) == 0)
22 abort ();
23 #pragma omp target enter data map (alloc: b[:0])
24 if (omp_target_is_present (b, d) == 0)
25 abort ();
26 #pragma omp target exit data map (release: b[:0])
27 if (omp_target_is_present (b, d) == 0)
28 abort ();
29 #pragma omp target exit data map (release: b[:0])
30 if (omp_target_is_present (b, d) != shared_mem)
31 abort ();
32 #pragma omp target enter data map (to: a)
33 if (omp_target_is_present (b, d) == 0)
34 abort ();
35 #pragma omp target enter data map (always, to: b[:0])
36 if (omp_target_is_present (b, d) == 0)
37 abort ();
38 #pragma omp target exit data map (delete: b[:0])
39 if (omp_target_is_present (b, d) != shared_mem)
40 abort ();
41 #pragma omp target exit data map (from: b[:0])
42 return 0;
43 }