Subversion Repositories openrisc

// { dg-do compile }

extern int test(int);

void foo()

{

  int i;

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

    {

      #pragma omp sections

      {

        continue;               // { dg-error "invalid exit" }

      }

    }

  #pragma omp sections

    {

    #pragma omp section

      { bad1: ; }               // { dg-error "jump to label" }

    #pragma omp section

      goto bad1;                // { dg-error "from here|enters OpenMP" }

    }

  #pragma omp sections

    {

      goto bad2;                // { dg-error "from here" }

    }

  bad2:;                        // { dg-error "jump|exits OpenMP" }

  goto bad3;                    // { dg-error "from here" }

  #pragma omp sections

    {

      bad3: ;                   // { dg-error "jump|enters OpenMP" }

    }

  #pragma omp sections

    {

      goto ok1;

      ok1:;

    #pragma omp section

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

        if (test(i))

          break;

        else

          continue;

    #pragma omp section

      switch (i)

        {

        case 0:

          break;

        default:

          test(i);

        }

    }

}

// { dg-message "error: invalid branch to/from an OpenMP structured block" "" { target *-*-* } 21 }

// { dg-message "error: invalid branch to/from an OpenMP structured block" "" { target *-*-* } 26 }

// { dg-message "error: invalid entry to OpenMP structured block" "" { target *-*-* } 30 }