libgomp/testsuite/libgomp.c++/tls-init1.C

   1 extern "C" void abort();
   2
   3 struct A
   4 {
   5   A();
   6   int i;
   7 };
   8
   9 extern A a;
  10 #pragma omp threadprivate (a)
  11 A a;
  12
  13 A &f()
  14 {
  15   return a;
  16 }
  17
  18 int j;
  19 A::A(): i(j) { }
  20
  21 int main()
  22 {
  23   j = 42;
  24   if (f().i != 42)
  25     abort ();
  26 }