/* PR fortran/99226 */ | |
/* { dg-do compile } */ | |
void | |
foo (int n) | |
{ | |
int i; | |
#pragma omp target /* { dg-error "construct with nested 'teams' construct contains directives outside of the 'teams' construct" } */ | |
{ | |
#pragma omp teams distribute dist_schedule (static, n + 4) | |
for (i = 0; i < 8; i++) | |
; | |
#pragma omp teams distribute dist_schedule (static, n + 4) | |
for (i = 0; i < 8; i++) | |
; | |
} | |
} |