Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.dg/gomp/teams-1.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children | 1830386684a0 |
line wrap: on
line source
/* { dg-do compile } */ void foo (int x) { bad1: #pragma omp target teams goto bad1; // { dg-error "invalid branch to/from OpenMP structured block" } goto bad2; // { dg-error "invalid entry to OpenMP structured block" } #pragma omp target teams { bad2: ; } #pragma omp target teams { int i; goto ok1; for (i = 0; i < 10; ++i) { ok1: break; } } switch (x) // { dg-error "invalid entry to OpenMP structured block" } { #pragma omp target teams { case 0:; } // { dg-warning "statement will never be executed" } } } void bar (int x) { bad1: #pragma omp target #pragma omp teams goto bad1; // { dg-error "invalid branch to/from OpenMP structured block" } goto bad2; // { dg-error "invalid entry to OpenMP structured block" } #pragma omp target #pragma omp teams { bad2: ; } #pragma omp target #pragma omp teams { int i; goto ok1; for (i = 0; i < 10; ++i) { ok1: break; } } switch (x) // { dg-error "invalid entry to OpenMP structured block" } { #pragma omp target // { dg-warning "statement will never be executed" } #pragma omp teams { case 0:; } } }