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

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log


// { dg-do run }
 
extern "C" void abort (void);
int x = 6;
float y;
 
int
main (void)
{
  int v;
  float f;
  #pragma omp atomic read
    v = x;
  if (v != 6)
    abort ();
  #pragma omp atomic write
    x = 17;
  #pragma omp atomic read
  v = x;
  if (v != 17)
    abort ();
  #pragma omp atomic update
    x++;
  #pragma omp atomic read
    v = x;
  if (v != 18)
    abort ();
  #pragma omp atomic capture
    v = x++;
  if (v != 18)
    abort ();
  #pragma omp atomic read
    v = x;
  if (v != 19)
    abort ();
  #pragma omp atomic capture
    v = ++x;
  if (v != 20)
    abort ();
  #pragma omp atomic read
    v = x;
  if (v != 20)
    abort ();
  #pragma omp atomic capture
    { v = x; x *= 3; }
  if (v != 20)
    abort ();
  #pragma omp atomic read
    v = x;
  if (v != 60)
    abort ();
  #pragma omp atomic capture
    {
      x |= 2;
      v = x;
    }
  if (v != 62)
    abort ();
  #pragma omp atomic read
    v = x;
  if (v != 62)
    abort ();
  #pragma omp atomic capture
    { v = x; x++; }
  if (v != 62)
    abort ();
  #pragma omp atomic capture
    { v = x; ++x; }
  if (v != 63)
    abort ();
  #pragma omp atomic capture
    {
      ++x;
      v = x;
    }
  if (v != 65)
    abort ();
#pragma omp atomic capture
{x++;v=x;}if (v != 66)
    abort ();
  #pragma omp atomic read
    v = x;
  if (v != 66)
    abort ();
  #pragma omp atomic capture
    { v = x; x--; }
  if (v != 66)
    abort ();
  #pragma omp atomic capture
    { v = x; --x; }
  if (v != 65)
    abort ();
  #pragma omp atomic capture
    {
      --x;
      v = x;
    }
  if (v != 63)
    abort ();
  #pragma omp atomic capture
  { x--; v = x; } if (v != 62)
    abort ();
  #pragma omp atomic read
    v = x;
  if (v != 62)
    abort ();
  #pragma omp atomic write
    y = 17.5f;
  #pragma omp atomic read
    f = y;
  if (f != 17.5)
    abort ();
  #pragma omp atomic update
    y *= 2.0f;
  #pragma omp atomic read
    f = y;
  if (y != 35.0)
    abort ();
  #pragma omp atomic capture
    f = y *= 2.0f;
  if (f != 70.0)
    abort ();
  #pragma omp atomic capture
    f = y++;
  if (f != 70.0)
    abort ();
  #pragma omp atomic read
    f = y;
  if (f != 71.0)
    abort ();
  #pragma omp atomic capture
    f = --y;
  if (f != 70.0)
    abort ();
  #pragma omp atomic read
    f = y;
  if (f != 70.0)
    abort ();
  #pragma omp atomic capture
    { f = y; y /= 2.0f; }
  if (f != 70.0)
    abort ();
  #pragma omp atomic read
    f = y;
  if (f != 35.0)
    abort ();
  #pragma omp atomic capture
    { y /= 2.0f; f = y; }
  if (f != 17.5)
    abort ();
  #pragma omp atomic read
    f = y;
  if (f != 17.5)
    abort ();
  return 0;
}

Line No.	Rev	Author	Line
1	735	jeremybenn	`// { dg-do run }`
2
3			`extern "C" void abort (void);`
4			`int x = 6;`
5			`float y;`
6
7			`int`
8			`main (void)`
9			`{`
10			`int v;`
11			`float f;`
12			`#pragma omp atomic read`
13			`v = x;`
14			`if (v != 6)`
15			`abort ();`
16			`#pragma omp atomic write`
17			`x = 17;`
18			`#pragma omp atomic read`
19			`v = x;`
20			`if (v != 17)`
21			`abort ();`
22			`#pragma omp atomic update`
23			`x++;`
24			`#pragma omp atomic read`
25			`v = x;`
26			`if (v != 18)`
27			`abort ();`
28			`#pragma omp atomic capture`
29			`v = x++;`
30			`if (v != 18)`
31			`abort ();`
32			`#pragma omp atomic read`
33			`v = x;`
34			`if (v != 19)`
35			`abort ();`
36			`#pragma omp atomic capture`
37			`v = ++x;`
38			`if (v != 20)`
39			`abort ();`
40			`#pragma omp atomic read`
41			`v = x;`
42			`if (v != 20)`
43			`abort ();`
44			`#pragma omp atomic capture`
45			`{ v = x; x *= 3; }`
46			`if (v != 20)`
47			`abort ();`
48			`#pragma omp atomic read`
49			`v = x;`
50			`if (v != 60)`
51			`abort ();`
52			`#pragma omp atomic capture`
53			`{`
54			`x \|= 2;`
55			`v = x;`
56			`}`
57			`if (v != 62)`
58			`abort ();`
59			`#pragma omp atomic read`
60			`v = x;`
61			`if (v != 62)`
62			`abort ();`
63			`#pragma omp atomic capture`
64			`{ v = x; x++; }`
65			`if (v != 62)`
66			`abort ();`
67			`#pragma omp atomic capture`
68			`{ v = x; ++x; }`
69			`if (v != 63)`
70			`abort ();`
71			`#pragma omp atomic capture`
72			`{`
73			`++x;`
74			`v = x;`
75			`}`
76			`if (v != 65)`
77			`abort ();`
78			`#pragma omp atomic capture`
79			`{x++;v=x;}if (v != 66)`
80			`abort ();`
81			`#pragma omp atomic read`
82			`v = x;`
83			`if (v != 66)`
84			`abort ();`
85			`#pragma omp atomic capture`
86			`{ v = x; x--; }`
87			`if (v != 66)`
88			`abort ();`
89			`#pragma omp atomic capture`
90			`{ v = x; --x; }`
91			`if (v != 65)`
92			`abort ();`
93			`#pragma omp atomic capture`
94			`{`
95			`--x;`
96			`v = x;`
97			`}`
98			`if (v != 63)`
99			`abort ();`
100			`#pragma omp atomic capture`
101			`{ x--; v = x; } if (v != 62)`
102			`abort ();`
103			`#pragma omp atomic read`
104			`v = x;`
105			`if (v != 62)`
106			`abort ();`
107			`#pragma omp atomic write`
108			`y = 17.5f;`
109			`#pragma omp atomic read`
110			`f = y;`
111			`if (f != 17.5)`
112			`abort ();`
113			`#pragma omp atomic update`
114			`y *= 2.0f;`
115			`#pragma omp atomic read`
116			`f = y;`
117			`if (y != 35.0)`
118			`abort ();`
119			`#pragma omp atomic capture`
120			`f = y *= 2.0f;`
121			`if (f != 70.0)`
122			`abort ();`
123			`#pragma omp atomic capture`
124			`f = y++;`
125			`if (f != 70.0)`
126			`abort ();`
127			`#pragma omp atomic read`
128			`f = y;`
129			`if (f != 71.0)`
130			`abort ();`
131			`#pragma omp atomic capture`
132			`f = --y;`
133			`if (f != 70.0)`
134			`abort ();`
135			`#pragma omp atomic read`
136			`f = y;`
137			`if (f != 70.0)`
138			`abort ();`
139			`#pragma omp atomic capture`
140			`{ f = y; y /= 2.0f; }`
141			`if (f != 70.0)`
142			`abort ();`
143			`#pragma omp atomic read`
144			`f = y;`
145			`if (f != 35.0)`
146			`abort ();`
147			`#pragma omp atomic capture`
148			`{ y /= 2.0f; f = y; }`
149			`if (f != 17.5)`
150			`abort ();`
151			`#pragma omp atomic read`
152			`f = y;`
153			`if (f != 17.5)`
154			`abort ();`
155			`return 0;`
156			`}`

Browse

Tools

Subversion Repositories openrisc

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