gcc/testsuite/g++.dg/debug/dwarf2/omp-fesdr.C

   1 /* { dg-do compile } */
   2 /* { dg-require-effective-target fopenmp } */
   3 /* { dg-options "-g -fopenmp -gdwarf-2 -femit-struct-debug-reduced" } */
   4
   5 struct aa
   6 {
   7   int a;
   8 };
   9
  10 int
  11 f7 (void)
  12 {
  13   int v7i = 6, v7j = 7, v7k = 9, v7l = 0, v7n = 0, v7o = 1;
  14
  15   #pragma omp parallel
  16   {
  17     #pragma omp master
  18     v7o++;
  19     #pragma omp for private (v7i) firstprivate (v7k) reduction (+:v7l)
  20     for (v7n = 0; v7n < 3; v7n++)
  21     {
  22       int v7m = v7j + v7k;
  23       v7i = 8;
  24       v7l++;
  25     }
  26   }
  27
  28   return v7i + v7j + v7k + v7l + v7n;
  29 }
  30
  31 int
  32 main (void)
  33 {
  34   f7 ();
  35   return 0;
  36 }