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