gcc/testsuite/gcc.dg/gomp/combined-1.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-O1 -fopenmp -fdump-tree-optimized" } */
   3
   4 int a[10];
   5 int 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_start" 3 "optimized" } } */
  24 /* { dg-final { cleanup-tree-dump "optimized" } } */