1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.dg/gomp/appendix-a/a.17.1.c b/gcc/testsuite/gcc.dg/gomp/appendix-a/a.17.1.c
new file mode 100644
index 000000000..c460f7566
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/gomp/appendix-a/a.17.1.c
@@ -0,0 +1,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 */
+  }
+}