Subversion Repositories openrisc

/* This testcase violates the OpenMP requirements, as nested functions

   access the original variables.

   We test it just to make sure we don't ICE on it.  */

/* { dg-do compile } */

/* { dg-options "-O2 -fopenmp" } */

extern void abort (void);

extern int omp_get_thread_num ();

extern void omp_set_dynamic (int);

int

main (void)

{

  int j = 0, k = 6, l = 7, m = 8;

  void foo (void)

  {

    int i = 5;

    int bar (void)

    {

      return i + 1 + (j > 100 ? 10000 : 0);

    }

#pragma omp sections private (i)

    {

#pragma omp section

      {

        i = 6;

        if (bar () != 6)

#pragma omp atomic

          ++j;

      }

#pragma omp section

      {

        if (bar () != 6)

#pragma omp atomic

          ++j;

      }

    }

    if (k != 6 || l != 7 || m != 8)

#pragma omp atomic

      ++j;

  }

  omp_set_dynamic (0);

#pragma omp parallel num_threads (2) firstprivate (k) shared (l) private (m)

  {

    if (omp_get_thread_num () != 0)

      k += omp_get_thread_num ();

    m = 9;

    foo ();

  }

  if (j)

    abort ();

  return 0;

}