gcc/testsuite/g++.dg/gomp/declare-target-3.C

   1 // { dg-do compile }
   2 // { dg-additional-options "-fdump-tree-gimple" }
   3
   4 // Test implicit marking of declare target to.
   5
   6 int foo () { return 1; }
   7 int bar () { return 2; }        // Implicitly marked (due to b)
   8 int baz () { return 3; }        // Implicitly marked (due to d via c)
   9 int qux () { return 4; }        // Implicitly marked (due to g via f and e)
  10
  11 int a = foo ();
  12 int b = bar (); // Explicitly marked
  13 int c = baz (); // Implicitly marked (due to d)
  14 int *d = &c;    // Explicitly marked
  15 int e = qux (); // Implicitly marked (due to g via f)
  16 int f = e + 1;  // Implicitly marked (due to g)
  17 int *g = &f;    // Explicitly marked
  18
  19 #pragma omp declare target to(b, d, g)
  20
  21 // { dg-final { scan-tree-dump-not "__attribute__\\\(\\\(omp declare target\\\)\\\)\\\nint foo \\\(\\\)" "gimple" } }
  22 // { dg-final { scan-tree-dump "__attribute__\\\(\\\(omp declare target\\\)\\\)\\\nint bar \\\(\\\)" "gimple" } }
  23 // { dg-final { scan-tree-dump "__attribute__\\\(\\\(omp declare target\\\)\\\)\\\nint baz \\\(\\\)" "gimple" } }
  24 // { dg-final { scan-tree-dump "__attribute__\\\(\\\(omp declare target\\\)\\\)\\\nint qux \\\(\\\)" "gimple" } }
  25 // { dg-final { scan-assembler-not "\\\.offload_var_table:\\n.+\\\.(quad|long)\\s+a" { target { offloading_enabled } } } }
  26 // { dg-final { scan-assembler "\\\.offload_var_table:\\n.+\\\.(quad|long)\\s+b" { target { offloading_enabled } } } }
  27 // { dg-final { scan-assembler "\\\.offload_var_table:\\n.+\\\.(quad|long)\\s+c" { target { offloading_enabled } } } }
  28 // { dg-final { scan-assembler "\\\.offload_var_table:\\n.+\\\.(quad|long)\\s+d" { target { offloading_enabled } } } }
  29 // { dg-final { scan-assembler "\\\.offload_var_table:\\n.+\\\.(quad|long)\\s+e" { target { offloading_enabled } } } }
  30 // { dg-final { scan-assembler "\\\.offload_var_table:\\n.+\\\.(quad|long)\\s+f" { target { offloading_enabled } } } }
  31 // { dg-final { scan-assembler "\\\.offload_var_table:\\n.+\\\.(quad|long)\\s+g" { target { offloading_enabled } } } }