libgomp/testsuite/libgomp.c/declare-variant-2.c

   1 /* { dg-do run } */
   2
   3 #include <omp.h>
   4 #include <stdlib.h>
   5
   6 void
   7 foo_host (void)
   8 {
   9   if (!omp_is_initial_device ())
  10     abort ();
  11 }
  12
  13 #pragma omp declare variant (foo_host) match (device={kind(host)})
  14 void
  15 foo (void)
  16 {
  17   if (omp_is_initial_device ())
  18     abort ();
  19 }
  20
  21 void
  22 bar_nohost (void)
  23 {
  24   if (omp_is_initial_device ())
  25     abort ();
  26 }
  27
  28 #pragma omp declare variant (bar_nohost) match (device={kind(nohost)})
  29 void
  30 bar (void)
  31 {
  32   if (!omp_is_initial_device ())
  33     abort ();
  34 }
  35
  36 int
  37 main ()
  38 {
  39   #pragma omp target
  40   {
  41     foo ();
  42     bar ();
  43   }
  44   return 0;
  45 }