Subversion Repositories openrisc

extern void abort (void);

extern void abort (void);

int i = 8;

int i = 8;

int main (void)

int main (void)

{

{

  int j = 7, k = 0;

  int j = 7, k = 0;

  #pragma omp for

  #pragma omp for

  for (i = 0; i < 10; i++)

  for (i = 0; i < 10; i++)

    ;

    ;

  #pragma omp for

  #pragma omp for

  for (j = 0; j < 10; j++)

  for (j = 0; j < 10; j++)

    ;

    ;

  /* OpenMP 3.0 newly guarantees that the original list items can't

  /* OpenMP 3.0 newly guarantees that the original list items can't

     be shared with the privatized omp for iterators, even when

     be shared with the privatized omp for iterators, even when

     the original list items are already private.  */

     the original list items are already private.  */

  if (i != 8 || j != 7)

  if (i != 8 || j != 7)

    abort ();

    abort ();

  #pragma omp parallel private (i) reduction (+:k)

  #pragma omp parallel private (i) reduction (+:k)

  {

  {

    i = 6;

    i = 6;

    #pragma omp for

    #pragma omp for

    for (i = 0; i < 10; i++)

    for (i = 0; i < 10; i++)

      ;

      ;

    k = (i != 6);

    k = (i != 6);

  }

  }

  if (k)

  if (k)

    abort ();

    abort ();

  return 0;

  return 0;

}

}