obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 38 insertions, 0 deletions

diff --git a/gcc/testsuite/g++.dg/gomp/clause-2.C b/gcc/testsuite/g++.dg/gomp/clause-2.C
new file mode 100644
index 000000000..450419ad6
--- /dev/null
+++ b/gcc/testsuite/g++.dg/gomp/clause-2.C
@@ -0,0 +1,38 @@
+// { dg-do compile }
+
+struct A { int a; };
+struct B { B(); };
+struct C { C(); C(const C&); };
+struct D { D& operator=(const D&); };
+
+class E { private: E(); public: E(int); };	// { dg-error "private" }
+class F { private: F(const F&); public: F(); };	// { dg-error "private" }
+class G { private: G& operator=(const G&); };	// { dg-error "private" }
+
+void bar();
+void foo()
+{
+  A a; B b; C c; D d; E e(0); F f; G g;
+
+  #pragma omp parallel shared(a, b, c, d, e, f, g)
+    bar();
+
+  #pragma omp parallel private(a, b, c, d, f, g)
+    bar();
+  #pragma omp parallel private(e)		// { dg-error "context" }
+    bar();
+
+  #pragma omp parallel firstprivate(a, b, c, d, e, g)
+    bar();
+  #pragma omp parallel firstprivate(f)		// { dg-error "context" }
+    bar();
+
+  #pragma omp parallel sections lastprivate(a, b, d, c, f)
+    { bar(); }
+  #pragma omp parallel sections lastprivate(e)	// { dg-error "context" }
+    { bar(); }
+  #pragma omp parallel sections lastprivate(g)	// { dg-error "context" }
+    { bar(); }
+  #pragma omp parallel sections firstprivate(e) lastprivate(e)
+    { bar(); }
+}