1 // { dg-do run }
2 
3 extern "C" void abort ();
4 int cnt;
5 
6 int
foo()7 foo ()
8 {
9   return cnt++;
10 }
11 
12 template <typename T>
13 void
bar()14 bar ()
15 {
16   extern T x;
17   T v, *p;
18   p = &x;
19   #pragma omp atomic update
20     p[foo (), 0] = 16 + 6 - p[foo (), 0];
21   #pragma omp atomic read
22     v = x;
23   if (cnt != 2 || v != 16)
24     abort ();
25   #pragma omp atomic capture
26     v = p[foo () + foo (), 0] = p[foo () + foo (), 0] + 3;
27   if (cnt != 6 || v != 19)
28     abort ();
29   #pragma omp atomic capture
30     v = p[foo (), 0] = 12 * 1 / 2 + (foo (), 0) + p[foo (), 0];
31   if (cnt != 9 || v != 25)
32     abort ();
33   #pragma omp atomic capture
34     {
35       v = p[foo () & 0]; p[foo () & 0] = (foo (), 1) * 9 - p[foo () & 0];
36     }
37   if (cnt != 13 || v != 25)
38     abort ();
39   #pragma omp atomic read
40     v = x;
41   if (v != -16)
42     abort ();
43   #pragma omp atomic capture
44     {
45       p[0 & foo ()] = 16 - 2 + 3 + p[0 & foo ()]; v = p[0 & foo ()];
46     }
47   if (cnt != 16 || v != 1)
48     abort ();
49   #pragma omp atomic capture
50     {
51       v = p[foo (), 0]; p[foo (), 0] = (foo (), 7) ? 13 : foo () + 6;
52     }
53   if (cnt != 19 || v != 1)
54     abort ();
55   #pragma omp atomic read
56     v = x;
57   if (v != 13)
58     abort ();
59 }
60 
61 int x = 6;
62 
63 int
main()64 main ()
65 {
66   bar <int> ();
67   return 0;
68 }
69