Subversion Repositories openrisc

/* { dg-do compile } */
/* { dg-require-effective-target tls } */

int thrglobalvar;
#pragma omp threadprivate (thrglobalvar)
int globalvar;
const struct S
{
  int x;
} constvar = { 8 };
struct T
{
  static T t;
  int i;
};
T T::t = { 6 };
/* const qualified type, but mutable member -> not predetermined.  */
const struct U
{
  int x;
  mutable int y;
} constmutvar = { 6, 4 };

int
foo (int x)
{
  return x;
}

int
bar (int *x)
{
  return *x;
}

int
baz (U u)
{
  return u.x;
}

int
main (void)
{
  static int thrlocvar;
#pragma omp threadprivate (thrlocvar)
  static int locvar;
  static int *p;
  int i, j, s, l;

  p = new int;
  *p = 7;
  s = 6;
  l = 0;
#pragma omp parallel for /* { dg-error "enclosing parallel" } */ \
  default (none) private (p) shared (s) 
  for (i = 0; i < 64; i++)
    {
      int k = foo (0);  /* Predetermined - private (automatic var declared */
      k++;              /* in scope of construct).  */
      thrglobalvar++;   /* Predetermined - threadprivate.  */
      thrlocvar++;      /* Predetermined - threadprivate.  */
      foo (i);          /* Predetermined - private (omp for loop variable).  */
      foo (constvar.x); /* Predetermined - shared (const qualified type).  */
      foo (T::t.i);     /* Predetermined - shared (static data member).  */
      foo (*p);         /* *p predetermined - shared (heap allocated */
      (*p)++;           /* storage).  */
      bar (p);          /* Explicitly determined - private.  */
      foo (s);          /* Explicitly determined - shared.  */
      globalvar++;      /* { dg-error "not specified in" } */
      locvar++;         /* { dg-error "not specified in" } */
      l++;              /* { dg-error "not specified in" } */
      for (j = 0; j < 2; j++); /* { dg-error "not specified in" } */
      baz (constmutvar);/* { dg-error "not specified in" } */
    }
  return 0;
}