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

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