OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c++/] [pr27337.C] - Blame information for rev 735

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 735 jeremybenn
// PR middle-end/27337
2
// { dg-do run }
3
 
4
#include 
5
 
6
extern "C" void abort (void);
7
 
8
struct S
9
{
10
  S ();
11
  ~S ();
12
  S (const S &);
13
  int i;
14
};
15
 
16
int n[3];
17
 
18
S::S () : i(18)
19
{
20
  if (omp_get_thread_num () != 0)
21
#pragma omp atomic
22
    n[0]++;
23
}
24
 
25
S::~S ()
26
{
27
  if (omp_get_thread_num () != 0)
28
#pragma omp atomic
29
    n[1]++;
30
}
31
 
32
S::S (const S &x)
33
{
34
  if (x.i != 18)
35
    abort ();
36
  i = 118;
37
  if (omp_get_thread_num () != 0)
38
#pragma omp atomic
39
    n[2]++;
40
}
41
 
42
S
43
foo ()
44
{
45
  int i;
46
  S ret;
47
 
48
#pragma omp parallel for firstprivate (ret) lastprivate (ret) \
49
                         schedule (static, 1) num_threads (4)
50
  for (i = 0; i < 4; i++)
51
    ret.i += omp_get_thread_num ();
52
 
53
  return ret;
54
}
55
 
56
S
57
bar ()
58
{
59
  int i;
60
  S ret;
61
 
62
#pragma omp parallel for num_threads (4)
63
  for (i = 0; i < 4; i++)
64
#pragma omp atomic
65
    ret.i += omp_get_thread_num () + 1;
66
 
67
  return ret;
68
}
69
 
70
S x;
71
 
72
int
73
main (void)
74
{
75
  omp_set_dynamic (false);
76
  x = foo ();
77
  if (n[0] != 0 || n[1] != 3 || n[2] != 3)
78
    abort ();
79
  if (x.i != 118 + 3)
80
    abort ();
81
  x = bar ();
82
  if (n[0] != 0 || n[1] != 3 || n[2] != 3)
83
    abort ();
84
  if (x.i != 18 + 0 + 1 + 2 + 3 + 4)
85
    abort ();
86
  return 0;
87
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.