X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=libgomp%2Ftestsuite%2Flibgomp.c%2Fomp_workshare3.c;fp=libgomp%2Ftestsuite%2Flibgomp.c%2Fomp_workshare3.c;h=913f1f731bf8ef849655138d708cd840e42b9a14;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=0000000000000000000000000000000000000000;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git

diff --git a/libgomp/testsuite/libgomp.c/omp_workshare3.c b/libgomp/testsuite/libgomp.c/omp_workshare3.c
new file mode 100644
index 00000000..913f1f73
--- /dev/null
+++ b/libgomp/testsuite/libgomp.c/omp_workshare3.c
@@ -0,0 +1,43 @@
+/* { dg-do compile } */
+
+/******************************************************************************
+* OpenMP Example - Combined Parallel Loop Work-sharing - C/C++ Version
+* FILE: omp_workshare3.c
+* DESCRIPTION:
+*   This example attempts to show use of the parallel for construct.  However
+*   it will generate errors at compile time.  Try to determine what is causing
+*   the error.  See omp_workshare4.c for a corrected version.
+* SOURCE: Blaise Barney  5/99
+* LAST REVISED: 03/03/2002
+******************************************************************************/
+
+#include <omp.h>
+#include <stdio.h>
+#define N       50
+#define CHUNKSIZE   5
+
+main ()  {
+
+int i, chunk, tid;
+float a[N], b[N], c[N];
+
+/* Some initializations */
+for (i=0; i < N; i++)
+  a[i] = b[i] = i * 1.0;
+chunk = CHUNKSIZE;
+
+#pragma omp parallel for     \
+  shared(a,b,c,chunk)            \
+  private(i,tid)             \
+  schedule(static,chunk)
+  {				/* { dg-error "expected" } */
+  tid = omp_get_thread_num();
+  for (i=0; i < N; i++)
+    {
+    c[i] = a[i] + b[i];
+    printf("tid= %d i= %d c[i]= %f\n", tid, i, c[i]);
+    }
+  }  /* end of parallel for construct */
+
+  return 0;
+}