1/* { dg-do compile } */ 2/* { dg-options "-O1 -fopenmp -fdump-tree-optimized" } */ 3 4int a[10]; 5int foo (void) 6{ 7 int i; 8#pragma omp parallel for schedule(runtime) 9 for (i = 0; i < 10; i++) 10 a[i] = i; 11#pragma omp parallel 12#pragma omp for schedule(runtime) 13 for (i = 0; i < 10; i++) 14 a[i] = 10 - i; 15#pragma omp parallel 16 { 17#pragma omp for schedule(runtime) 18 for (i = 0; i < 10; i++) 19 a[i] = i; 20 } 21} 22 23/* { dg-final { scan-tree-dump-times "GOMP_parallel_loop_runtime" 3 "optimized" } } */ 24/* { dg-final { cleanup-tree-dump "optimized" } } */ 25