OSDN Git Service

2006-01-18 Richard Henderson <rth@redhat.com>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.dg / gomp / atomic-4.c
1 /* { dg-do compile } */
2
3 int a[4];
4 int *p;
5 struct S { int x; int y[4]; } s;
6 int *bar(void);
7
8 void f1(void)
9 {
10   #pragma omp atomic
11     a[4] += 1;
12   #pragma omp atomic
13     *p += 1;
14   #pragma omp atomic
15     s.x += 1;
16   #pragma omp atomic
17     s.y[*p] += 1;
18   #pragma omp atomic
19     s.y[*p] *= 42;
20   #pragma omp atomic
21     *bar() += 1;
22   #pragma omp atomic
23     *bar() *= 42;
24 }