Subversion Repositories openrisc

// { dg-do run }

// { dg-require-effective-target tls_runtime }

#include 

#include 

struct B

{

  static int count;

  static B *expected;

  B& operator=(const B &);

};

int B::count;

B * B::expected;

static B thr;

#pragma omp threadprivate(thr)

B& B::operator= (const B &b)

{

  assert (&b == expected);

  assert (this != expected);

  #pragma omp atomic

    count++;

  return *this;

}

static int nthreads;

void foo()

{

  B::expected = &thr;

  #pragma omp parallel copyin(thr)

    {

    #pragma omp master

      nthreads = omp_get_num_threads ();

    }

}

int main()

{

  omp_set_dynamic (0);

  omp_set_num_threads (4);

  foo();

  assert (B::count == nthreads-1);

  return 0;

}