diff options
Diffstat (limited to 'gcc/testsuite/gcc.dg/gomp/nesting-1.c')
| -rw-r--r-- | gcc/testsuite/gcc.dg/gomp/nesting-1.c | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.dg/gomp/nesting-1.c b/gcc/testsuite/gcc.dg/gomp/nesting-1.c index df57ac845f7..52fcda741ea 100644 --- a/gcc/testsuite/gcc.dg/gomp/nesting-1.c +++ b/gcc/testsuite/gcc.dg/gomp/nesting-1.c @@ -28,17 +28,58 @@ f1 (void) #pragma omp for /* { dg-error "may not be closely nested" } */ for (j = 0; j < 3; j++) ; + } + #pragma omp sections + { #pragma omp sections /* { dg-error "may not be closely nested" } */ { ; #pragma omp section ; } + } + #pragma omp sections + { #pragma omp single /* { dg-error "may not be closely nested" } */ ; + } + #pragma omp sections + { #pragma omp master /* { dg-error "may not be closely nested" } */ ; + } + #pragma omp sections + { + #pragma omp section + ; + } + #pragma omp sections + { #pragma omp section + #pragma omp for /* { dg-error "may not be closely nested" } */ + for (j = 0; j < 3; j++) + ; + } + #pragma omp sections + { + #pragma omp section + #pragma omp sections /* { dg-error "may not be closely nested" } */ + { + ; + #pragma omp section + ; + } + } + #pragma omp sections + { + #pragma omp section + #pragma omp single /* { dg-error "may not be closely nested" } */ + ; + } + #pragma omp sections + { + #pragma omp section + #pragma omp master /* { dg-error "may not be closely nested" } */ ; } #pragma omp single |