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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [block-10.c] - Blame information for rev 856

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 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
  }
11
  switch (i)                    // { dg-error "invalid entry" }
12
  {
13
  #pragma omp for
14
    for (j = 0; j < 10; ++ j)
15
      { case 1:; }
16
  }
17
  switch (i)                    // { dg-error "invalid entry" }
18
  {
19
  #pragma omp critical
20
    { case 2:; }
21
  }
22
  switch (i)                    // { dg-error "invalid entry" }
23
  {
24
  #pragma omp master
25
    { case 3:; }
26
  }
27
  switch (i)                    // { dg-error "invalid entry" }
28
  {
29
  #pragma omp sections
30
    { case 4:;
31
    #pragma omp section
32
       { case 5:; }
33
    }
34
  }
35
  switch (i)                    // { dg-error "invalid entry" }
36
  {
37
  #pragma omp ordered
38
    { default:; }
39
  }
40
}

powered by: WebSVN 2.1.0

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