1extern int i; 2 3void 4f_omp_target (void) 5{ 6#pragma omp target 7 { 8#pragma omp target /* { dg-warning "target construct inside of target region" } */ 9 ; 10#pragma omp target data /* { dg-warning "target data construct inside of target region" } */ 11 ; 12#pragma omp target update to(i) /* { dg-warning "target update construct inside of target region" } */ 13 14#pragma omp parallel 15 { 16#pragma omp target /* { dg-warning "target construct inside of target region" } */ 17 ; 18#pragma omp target data /* { dg-warning "target data construct inside of target region" } */ 19 ; 20#pragma omp target update to(i) /* { dg-warning "target update construct inside of target region" } */ 21 } 22 } 23} 24