libgomp/testsuite/libgomp.c++/bdv_module2_main.C


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

// { dg-skip-if "" { *-*-* } }
// Built with bdv_module2.C

import bdv_module2;

int
main ()
{
  // Calls to test from doit() should invoke the omp teams variant
  // present in the TU where it is defined.
  doit ();
  // Calls to test from here shouldn't.
  if (test () != 0)
    __builtin_abort ();
  #pragma omp teams
  {
    if (test () != 0)
      __builtin_abort ();
  }
}