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

   1 /* { dg-do compile } */
   2
   3 void
   4 a17_2_wrong ()
   5 {
   6   int x;
   7   int *i;
   8   float *r;
   9   i = &x;
  10   r = (float *) &x;
  11 #pragma omp parallel
  12   {
  13 #pragma omp atomic
  14     *i += 1;
  15 #pragma omp atomic
  16     *r += 1.0;
  17 /* Incorrect because the atomic constructs reference the same location
  18      through incompatible types */
  19   }
  20 }