OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [block-9.c] - Blame information for rev 298

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 298 jeremybenn
// { dg-do compile }
2
 
3
void foo(int i)
4
{
5
  int j;
6
  switch (i)                    // { dg-error "invalid entry" }
7
  {
8
  #pragma omp parallel
9
    { case 0:; }
10
  #pragma omp for
11
    for (j = 0; j < 10; ++ j)
12
      { case 1:; }
13
  #pragma omp critical
14
    { case 2:; }
15
  #pragma omp master
16
    { case 3:; }
17
  #pragma omp sections
18
    { case 4:;
19
    #pragma omp section
20
       { case 5:; }
21
    }
22
  #pragma omp ordered
23
    { default:; }
24
  }
25
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.