aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/c-c++-common/gomp/pr98187.c
blob: fc252fd7e91ee0a0f12ac85554584a9fa4855535 (plain)
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
/* PR c++/98187 */
/* { dg-do compile } */
/* { dg-options "-fopenmp-simd -O2 -fdump-tree-gimple" } */
/* { dg-final { scan-tree-dump-times "#pragma omp simd" 17 "gimple" } } */

void
foo (int *p)
{
  int i;
  #pragma omp distribute parallel for
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp distribute parallel for simd
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp distribute simd
  for (i = 0; i < 64; i++)
    p[i]++;
}

void
bar (int *p)
{
  int i;
  #pragma omp for simd
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp master taskloop
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp master taskloop simd
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp parallel for
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp parallel for simd
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp parallel loop
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp parallel master
  p[0]++;
  #pragma omp parallel master taskloop
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp parallel master taskloop simd
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp parallel sections
  {
    p[0]++;
    #pragma omp section
    p[1]++;
    #pragma omp section
    p[2]++;
  }
  #pragma omp target parallel
  #pragma omp master
  p[0]++;
  #pragma omp target parallel for
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp target parallel for simd
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp target parallel loop
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp target teams private (i)
  i = 0;
  #pragma omp target teams distribute
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp target teams distribute parallel for
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp target teams distribute parallel for simd
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp target teams distribute simd
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp target teams loop
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp target simd
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp taskloop simd
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp teams distribute
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp teams distribute parallel for
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp teams distribute parallel for simd
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp teams distribute simd
  for (i = 0; i < 64; i++)
    p[i]++;
  #pragma omp teams loop
  for (i = 0; i < 64; i++)
    p[i]++;
}