2006-01-18 Richard Henderson <rth@redhat.com>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.dg / gomp / block-7.c

diff --git a/gcc/testsuite/gcc.dg/gomp/block-7.c b/gcc/testsuite/gcc.dg/gomp/block-7.c
new file mode 100644 (file)
index 0000000..802b3b3
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/gomp/block-7.c
@@ -0,0 +1,20 @@
+// { dg-do compile }
+
+void foo()
+{
+  int i, j;
+  for (i = 0; i < 10; ++i)
+    {
+      #pragma omp for
+      for (j = ({ continue; 0; });     // { dg-error "invalid exit" }
+          j < ({ continue; 10; });     // { dg-error "invalid exit" }
+          j += ({ continue; 1; }))     // { dg-error "invalid exit" }
+       continue;
+
+      #pragma omp for
+      for (j = ({ break; 0; });                // { dg-error "invalid exit" }
+          j < ({ break; 10; });        // { dg-error "invalid exit" }
+          j += ({ break; 1; }))        // { dg-error "invalid exit" }
+       break;                          // { dg-error "break" }
+    }
+}