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-3.c] - Rev 149
Go to most recent revision | Compare with Previous | Blame | View Log
// { 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: ; } #pragma omp section goto bad1; // { dg-error "invalid exit" } } #pragma omp sections { goto bad2; // { dg-error "invalid exit" } } bad2:; goto bad3; // { dg-error "invalid entry" } #pragma omp sections { bad3: ; } #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); } } }
Go to most recent revision | Compare with Previous | Blame | View Log