libgomp/testsuite/libgomp.c++/pr30703.C

   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 }