URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [g++.dg/] [gomp/] [block-3.C] - Rev 301
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: ; } // { 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 }
Go to most recent revision | Compare with Previous | Blame | View Log