diff libgomp/testsuite/libgomp.c++/ctor-12.C @ 0:a06113de4d67

first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libgomp/testsuite/libgomp.c++/ctor-12.C	Fri Jul 17 14:47:48 2009 +0900
@@ -0,0 +1,65 @@
+// PR c++/36308
+// { dg-do run }
+
+extern "C" void abort ();
+
+static int n;
+
+struct A
+{
+  A ()
+  {
+    l = 0;
+    #pragma omp atomic
+      ctors++;
+  }
+  A (const A &x)
+  {
+    l = x.l;
+    #pragma omp atomic
+      copyctors++;
+  }
+  virtual A& operator= (const A &x)
+  {
+    l = x.l;
+    #pragma omp atomic
+      assignops++;
+    return *this;
+  }
+  virtual ~A ()
+  {
+    #pragma omp atomic
+      dtors++;
+  }
+  int l;
+  static int ctors, dtors, copyctors, assignops;
+};
+
+int A::ctors;
+int A::dtors;
+int A::copyctors;
+int A::assignops;
+
+int
+main ()
+{
+  A a;
+#pragma omp parallel private (a)
+  {
+    a.l = 6;
+    #pragma omp single copyprivate (a)
+    {
+      a.l = 3;
+    }
+    if (a.l != 3)
+      abort ();
+    #pragma omp atomic
+      n++;
+  }
+  if (A::ctors != n + 1
+      || A::copyctors != 0
+      || A::dtors != n
+      || A::assignops != n - 1)
+    abort ();
+  return 0;
+}