libgomp/testsuite/libgomp.c/target-42.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

#include <stdio.h>

int
on_nvptx (void)
{
  return 1;
}

int
on_gcn (void)
{
  return 2;
}

#pragma omp declare variant (on_nvptx) match(construct={target},device={arch(nvptx)})
#pragma omp declare variant (on_gcn) match(construct={target},device={arch(gcn)})
int
on (void)
{
  return 0;
}

int
main ()
{
  int v;
  #pragma omp target map(from:v)
  v = on ();
  switch (v)
    {
    default:
      printf ("Host fallback or unknown offloading\n");
      break;
    case 1:
      printf ("Offloading to NVidia PTX\n");
      break;
    case 2:
      printf ("Offloading to AMD GCN\n");
      break;
    }
  return 0;
}