Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.c++/pr30703.C @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
1 // PR c++/30703
2 // { dg-do run }
3
4 #include <omp.h>
5
6 extern "C" void abort ();
7
8 int ctor, cctor, dtor;
9
10 struct A
11 {
12 A();
13 A(const A &);
14 ~A();
15 int i;
16 };
17
18 A::A()
19 {
20 #pragma omp atomic
21 ctor++;
22 }
23
24 A::A(const A &r)
25 {
26 i = r.i;
27 #pragma omp atomic
28 cctor++;
29 }
30
31 A::~A()
32 {
33 #pragma omp atomic
34 dtor++;
35 }
36
37 void
38 foo (A a, A b)
39 {
40 int i, j = 0;
41 #pragma omp parallel for firstprivate (a) lastprivate (a) private (b) schedule (static, 1) num_threads (5)
42 for (i = 0; i < 5; i++)
43 {
44 b.i = 5;
45 if (a.i != 6)
46 #pragma omp atomic
47 j += 1;
48 a.i = b.i + i + 6;
49 }
50
51 if (j || a.i != 15)
52 abort ();
53 }
54
55 void
56 bar ()
57 {
58 A a, b;
59 a.i = 6;
60 b.i = 7;
61 foo (a, b);
62 }
63
64 int
65 main ()
66 {
67 omp_set_dynamic (false);
68 if (ctor || cctor || dtor)
69 abort ();
70 bar ();
71 if (ctor + cctor != dtor)
72 abort ();
73 }