1// { dg-do run } 2 3extern "C" void abort (); 4int x = 6, cnt; 5 6int 7foo () 8{ 9 return cnt++; 10} 11 12int 13main () 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