gcc-4.9/gcc/testsuite/gcc.dg/debug/dwarf2/omp-fesdr.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

/* { dg-do compile } */
/* { dg-require-effective-target fopenmp }  */
/* { dg-options "-g -fopenmp -gdwarf-2 -femit-struct-debug-reduced" } */

struct aa
{
  int a;
};

int
f7 (void)
{
  int v7i = 6, v7j = 7, v7k = 9, v7l = 0, v7n = 0, v7o = 1;

  #pragma omp parallel
  {
    #pragma omp master
    v7o++;
    #pragma omp for private (v7i) firstprivate (v7k) reduction (+:v7l)
    for (v7n = 0; v7n < 3; v7n++)
    {
      int v7m = v7j + v7k;
      v7i = 8;
      v7l++;
    }
  }

  return v7i + v7j + v7k + v7l + v7n;
}

int
main (void)
{
  f7 ();
  return 0;
}