Subversion Repositories openrisc

// { dg-do run }

// { dg-additional-sources pr24455-1.C }

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

extern "C" void abort (void);

extern int i;

#pragma omp threadprivate(i)

int main()

{

  i = 0;

#pragma omp parallel default(none) num_threads(10) copyin(i)

    {

      i++;

#pragma omp barrier

      if (i != 1)

        abort ();

    }

    return 0;

}