gcc/testsuite/gcc.dg/gomp/appendix-a/a.17.1.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

/* { dg-do compile } */

void
a17_1_wrong ()
{
  union
  {
    int n;
    float x;
  } u;
#pragma omp parallel
  {
#pragma omp atomic
    u.n++;
#pragma omp atomic
    u.x += 1.0;
/* Incorrect because the atomic constructs reference the same location
     through incompatible types */
  }
}