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