C99 testsuite readiness: Compile more tests with -std=gnu89
[official-gcc.git] / gcc / testsuite / g++.dg / gomp / block-11.C
blobcf4b0d37c3d41f216770f0a66844839a7d7b8075
1 // { dg-do compile }
3 void foo()
5   #pragma omp masked
6     {
7       goto bad1;        // { dg-message "from here" }
8     }
10   #pragma omp masked filter(1)
11     {
12     bad1:               // { dg-error "jump" }
13                         // { dg-message "exits OpenMP" "" { target *-*-* } .-1 }
14       return;           // { dg-error "invalid exit" }
15     }
18 // { dg-message "error: invalid branch to/from OpenMP structured block" "" { target *-*-* } 7 }
19 /* PR c++/24516 */
20 /* { dg-do compile } */
22 void
23 bar (int *p)
25   int m;
26 #pragma omp parallel for
27   for (m = 0; m < 1000; ++m)
28     switch (p[m])
29       {
30       case 1:
31         p[m] = 2;
32         break;
33       default:
34         p[m] = 3;
35         break;
36       }