libgomp/testsuite/libgomp.c-c++-common/interop-1.c


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

/* { dg-do run } */

#include <omp.h>
#include <stdlib.h>

int
main ()
{
  int dev = omp_get_num_devices ();
  int x[6];
  omp_interop_t obj1 = omp_interop_none;
#pragma omp interop init(targetsync : obj1) depend(in : x) device(dev)
  if (obj1 != omp_interop_none)
    abort ();

#pragma omp interop use(obj1)
#pragma omp interop destroy(obj1) depend(out : x)
  if (obj1 != omp_interop_none)
    abort ();

  omp_set_default_device (dev);
  omp_interop_t obj2;

#pragma omp interop init(                                                      \
    target, targetsync,                                                        \
      prefer_type({fr("hip"), attr("ompx_gnu_prio:1", "ompx_gnu_debug")},      \
		    {attr("ompx_gnu_nicest"), attr("ompx_something")}) : obj1, \
      obj2) nowait
  if (obj1 != omp_interop_none || obj2 != omp_interop_none)
    abort ();
#pragma omp interop use(obj1, obj2) nowait

  omp_interop_t obj3 = __omp_interop_t_max__;

#pragma omp interop init(target : obj3) use(obj2) destroy(obj1) nowait
  if (obj1 != omp_interop_none || obj3 != omp_interop_none)
    abort ();
#pragma omp interop destroy(obj3, obj2) nowait
  if (obj2 != omp_interop_none || obj3 != omp_interop_none)
    abort ();

  return 0;
}