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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.target/] [mips/] [mips-ps-1.c] - Blame information for rev 841

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


/* { dg-do run { target mipsisa64*-*-* } } */
/* { dg-mips-options "-mips64 -O2 -mpaired-single -mhard-float -mgp64" } */
 
/* Test v2sf calculations */
#include <stdlib.h>
#include <stdio.h>
 
typedef float v2sf __attribute__ ((vector_size (8)));
 
v2sf A = {100, 200};
 
/* Init from float */
v2sf init (float a, float b)
{
  return (v2sf) {a, b};
}
 
/* Move between registers */
v2sf move (v2sf a)
{
  return a;
}
 
/* Load from memory */
v2sf load ()
{
  return A;
}
 
/* Store to memory */
void store (v2sf a)
{
  A = a;
}
 
/* Add */
v2sf add (v2sf a, v2sf b)
{
  return a + b;
}
 
/* Subtract */
v2sf sub (v2sf a, v2sf b)
{
  return a - b;
}
 
/* Negate */
v2sf neg (v2sf a)
{
  return - a;
}
 
/* Multiply */
v2sf mul (v2sf a, v2sf b)
{
  return a * b;
}
 
/* Multiply and add */
v2sf madd (v2sf a, v2sf b, v2sf c)
{
  return a * b + c;
}
 
/* Multiply and subtract */
v2sf msub (v2sf a, v2sf b, v2sf c)
{
  return a * b - c;
}
 
/* Negate Multiply and add */
v2sf nmadd (v2sf a, v2sf b, v2sf c)
{
  return - (a * b + c);
}
 
/* Negate Multiply and subtract */
v2sf nmsub (v2sf a, v2sf b, v2sf c)
{
  return - (a * b - c);
}
 
/* Conditional Move */
v2sf cond_move1 (v2sf a, v2sf b, long i)
{
  if (i > 0)
    return a;
  else
    return b;
}
 
/* Conditional Move */
v2sf cond_move2 (v2sf a, v2sf b, int i)
{
  if (i > 0)
    return a;
  else
    return b;
}
 
/* Conditional Move */
v2sf cond_move3 (v2sf a, v2sf b, float i)
{
  if (i > 0.0)
    return a;
  else
    return b;
}
 
/* Conditional Move */
v2sf cond_move4 (v2sf a, v2sf b, double i)
{
  if (i > 0.0)
    return a;
  else
    return b;
}
 
int main()
{
  v2sf a, b, c, d, e, f;
  float f1, f2;
 
  f1 = 1.2;
  f2 = 3.4;
  a = init (f1, f2);
  b = (v2sf) {1.2, 3.4};
  if (!__builtin_mips_upper_c_eq_ps (a, b) ||
      !__builtin_mips_lower_c_eq_ps (a, b))
    abort ();
 
  a = (v2sf) {1.2, 2.3};
  b = (v2sf) {5.3, 6.1};
  b = move (a);
 
  if (!__builtin_mips_upper_c_eq_ps (a, b) ||
      !__builtin_mips_lower_c_eq_ps (a, b))
    abort ();
 
  a = (v2sf) {1.2, 2.3};
  b = (v2sf) {5.3, 6.1};
  c = add (a, b);
  d = (v2sf) {6.5, 8.4};
  if (!__builtin_mips_upper_c_eq_ps (c, d) ||
      !__builtin_mips_lower_c_eq_ps (c, d))
    abort ();
 
  a = (v2sf) {1, 12};
  b = (v2sf) {5, 6};
  c = sub (a, b);
  d = (v2sf) {-4, 6};
  if (!__builtin_mips_upper_c_eq_ps (c, d) ||
      !__builtin_mips_lower_c_eq_ps (c, d))
    abort ();
 
  a = (v2sf) {1, 12};
  b = (v2sf) {5, 6};
  c = mul (a, b);
  d = (v2sf) {5, 72};
  if (!__builtin_mips_upper_c_eq_ps (c, d) ||
      !__builtin_mips_lower_c_eq_ps (c, d))
    abort ();
 
  a = (v2sf) {1, 12};
  b = (v2sf) {5, 6};
  c = (v2sf) {5, 6};
  d = madd (a, b, c);
  e = (v2sf) {10, 78};
  if (!__builtin_mips_upper_c_eq_ps (d, e) ||
      !__builtin_mips_lower_c_eq_ps (d, e))
    abort ();
 
  a = (v2sf) {1, 12};
  b = (v2sf) {5, 6};
  c = (v2sf) {5, 6};
  d = msub (a, b, c);
  e = (v2sf) {0, 66};
  if (!__builtin_mips_upper_c_eq_ps (d, e) ||
      !__builtin_mips_lower_c_eq_ps (d, e))
    abort ();
 
  a = (v2sf) {1, 12};
  b = (v2sf) {5, 6};
  c = (v2sf) {5, 6};
  d = nmadd (a, b, c);
  e = (v2sf) {-10, -78};
  if (!__builtin_mips_upper_c_eq_ps (d, e) ||
      !__builtin_mips_lower_c_eq_ps (d, e))
    abort ();
 
  a = (v2sf) {1, 12};
  b = (v2sf) {5, 6};
  c = (v2sf) {5, 6};
  d = nmsub (a, b, c);
  e = (v2sf) {0, -66};
  if (!__builtin_mips_upper_c_eq_ps (d, e) ||
      !__builtin_mips_lower_c_eq_ps (d, e))
    abort ();
 
  a = (v2sf) {98, 12};
  b = neg (a);
  c = (v2sf) {-98, -12};
  if (!__builtin_mips_upper_c_eq_ps (b, c) ||
      !__builtin_mips_lower_c_eq_ps (b, c))
    abort ();
 
  a = (v2sf) {1, 12};
  b = (v2sf) {5, 6};
  c = cond_move1 (a, b, 1000);
  if (!__builtin_mips_upper_c_eq_ps (c, a) ||
      !__builtin_mips_lower_c_eq_ps (c, a))
    abort ();
 
  a = (v2sf) {1, 12};
  b = (v2sf) {5, 6};
  c = cond_move2 (a, b, -1000);
  if (!__builtin_mips_upper_c_eq_ps (c, b) ||
      !__builtin_mips_lower_c_eq_ps (c, b))
    abort ();
 
  a = (v2sf) {1, 12};
  b = (v2sf) {5, 6};
  c = cond_move3 (a, b, 9.0);
  if (!__builtin_mips_upper_c_eq_ps (c, a) ||
      !__builtin_mips_lower_c_eq_ps (c, a))
    abort ();
 
  a = (v2sf) {1, 12};
  b = (v2sf) {5, 6};
  c = cond_move4 (a, b, -10.0);
  if (!__builtin_mips_upper_c_eq_ps (c, b) ||
      !__builtin_mips_lower_c_eq_ps (c, b))
    abort ();
 
  a = (v2sf) {5, 12};
  b = (v2sf) {5, 6};
  c = (v2sf) {33, 123};
  d = (v2sf) {8, 78};
  e = __builtin_mips_movt_c_eq_ps (a, b, c, d);
  f = (v2sf) {8, 123};
  if (!__builtin_mips_upper_c_eq_ps (e, f) ||
      !__builtin_mips_lower_c_eq_ps (e, f))
    abort ();
 
  a = (v2sf) {5, 12};
  b = (v2sf) {5, 6};
  c = (v2sf) {33, 123};
  d = (v2sf) {8, 78};
  e = __builtin_mips_movf_c_eq_ps (a, b, c, d);
  f = (v2sf) {33, 78};
  if (!__builtin_mips_upper_c_eq_ps (e, f) ||
      !__builtin_mips_lower_c_eq_ps (e, f))
    abort ();
 
  a = load();
  b = (v2sf) {100, 200};
  if (!__builtin_mips_upper_c_eq_ps (a, b) ||
      !__builtin_mips_lower_c_eq_ps (a, b))
    abort ();
 
  a = (v2sf) {123, 321};
  store (a);
  b = load();
  if (!__builtin_mips_upper_c_eq_ps (a, b) ||
      !__builtin_mips_lower_c_eq_ps (a, b))
    abort ();
 
  printf ("Test Passes\n");
  exit (0);
}

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.target/] [mips/] [mips-ps-1.c] - Blame information for rev 841

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* { dg-do run { target mipsisa64--* } } */`
2			`/* { dg-mips-options "-mips64 -O2 -mpaired-single -mhard-float -mgp64" } */`
3
4			`/* Test v2sf calculations */`
5			`#include <stdlib.h>`
6			`#include <stdio.h>`
7
8			`typedef float v2sf __attribute__ ((vector_size (8)));`
9
10			`v2sf A = {100, 200};`
11
12			`/* Init from float */`
13			`v2sf init (float a, float b)`
14			`{`
15			`return (v2sf) {a, b};`
16			`}`
17
18			`/* Move between registers */`
19			`v2sf move (v2sf a)`
20			`{`
21			`return a;`
22			`}`
23
24			`/* Load from memory */`
25			`v2sf load ()`
26			`{`
27			`return A;`
28			`}`
29
30			`/* Store to memory */`
31			`void store (v2sf a)`
32			`{`
33			`A = a;`
34			`}`
35
36			`/* Add */`
37			`v2sf add (v2sf a, v2sf b)`
38			`{`
39			`return a + b;`
40			`}`
41
42			`/* Subtract */`
43			`v2sf sub (v2sf a, v2sf b)`
44			`{`
45			`return a - b;`
46			`}`
47
48			`/* Negate */`
49			`v2sf neg (v2sf a)`
50			`{`
51			`return - a;`
52			`}`
53
54			`/* Multiply */`
55			`v2sf mul (v2sf a, v2sf b)`
56			`{`
57			`return a * b;`
58			`}`
59
60			`/* Multiply and add */`
61			`v2sf madd (v2sf a, v2sf b, v2sf c)`
62			`{`
63			`return a * b + c;`
64			`}`
65
66			`/* Multiply and subtract */`
67			`v2sf msub (v2sf a, v2sf b, v2sf c)`
68			`{`
69			`return a * b - c;`
70			`}`
71
72			`/* Negate Multiply and add */`
73			`v2sf nmadd (v2sf a, v2sf b, v2sf c)`
74			`{`
75			`return - (a * b + c);`
76			`}`
77
78			`/* Negate Multiply and subtract */`
79			`v2sf nmsub (v2sf a, v2sf b, v2sf c)`
80			`{`
81			`return - (a * b - c);`
82			`}`
83
84			`/* Conditional Move */`
85			`v2sf cond_move1 (v2sf a, v2sf b, long i)`
86			`{`
87			`if (i > 0)`
88			`return a;`
89			`else`
90			`return b;`
91			`}`
92
93			`/* Conditional Move */`
94			`v2sf cond_move2 (v2sf a, v2sf b, int i)`
95			`{`
96			`if (i > 0)`
97			`return a;`
98			`else`
99			`return b;`
100			`}`
101
102			`/* Conditional Move */`
103			`v2sf cond_move3 (v2sf a, v2sf b, float i)`
104			`{`
105			`if (i > 0.0)`
106			`return a;`
107			`else`
108			`return b;`
109			`}`
110
111			`/* Conditional Move */`
112			`v2sf cond_move4 (v2sf a, v2sf b, double i)`
113			`{`
114			`if (i > 0.0)`
115			`return a;`
116			`else`
117			`return b;`
118			`}`
119
120			`int main()`
121			`{`
122			`v2sf a, b, c, d, e, f;`
123			`float f1, f2;`
124
125			`f1 = 1.2;`
126			`f2 = 3.4;`
127			`a = init (f1, f2);`
128			`b = (v2sf) {1.2, 3.4};`
129			`if (!__builtin_mips_upper_c_eq_ps (a, b) \|\|`
130			`!__builtin_mips_lower_c_eq_ps (a, b))`
131			`abort ();`
132
133			`a = (v2sf) {1.2, 2.3};`
134			`b = (v2sf) {5.3, 6.1};`
135			`b = move (a);`
136
137			`if (!__builtin_mips_upper_c_eq_ps (a, b) \|\|`
138			`!__builtin_mips_lower_c_eq_ps (a, b))`
139			`abort ();`
140
141			`a = (v2sf) {1.2, 2.3};`
142			`b = (v2sf) {5.3, 6.1};`
143			`c = add (a, b);`
144			`d = (v2sf) {6.5, 8.4};`
145			`if (!__builtin_mips_upper_c_eq_ps (c, d) \|\|`
146			`!__builtin_mips_lower_c_eq_ps (c, d))`
147			`abort ();`
148
149			`a = (v2sf) {1, 12};`
150			`b = (v2sf) {5, 6};`
151			`c = sub (a, b);`
152			`d = (v2sf) {-4, 6};`
153			`if (!__builtin_mips_upper_c_eq_ps (c, d) \|\|`
154			`!__builtin_mips_lower_c_eq_ps (c, d))`
155			`abort ();`
156
157			`a = (v2sf) {1, 12};`
158			`b = (v2sf) {5, 6};`
159			`c = mul (a, b);`
160			`d = (v2sf) {5, 72};`
161			`if (!__builtin_mips_upper_c_eq_ps (c, d) \|\|`
162			`!__builtin_mips_lower_c_eq_ps (c, d))`
163			`abort ();`
164
165			`a = (v2sf) {1, 12};`
166			`b = (v2sf) {5, 6};`
167			`c = (v2sf) {5, 6};`
168			`d = madd (a, b, c);`
169			`e = (v2sf) {10, 78};`
170			`if (!__builtin_mips_upper_c_eq_ps (d, e) \|\|`
171			`!__builtin_mips_lower_c_eq_ps (d, e))`
172			`abort ();`
173
174			`a = (v2sf) {1, 12};`
175			`b = (v2sf) {5, 6};`
176			`c = (v2sf) {5, 6};`
177			`d = msub (a, b, c);`
178			`e = (v2sf) {0, 66};`
179			`if (!__builtin_mips_upper_c_eq_ps (d, e) \|\|`
180			`!__builtin_mips_lower_c_eq_ps (d, e))`
181			`abort ();`
182
183			`a = (v2sf) {1, 12};`
184			`b = (v2sf) {5, 6};`
185			`c = (v2sf) {5, 6};`
186			`d = nmadd (a, b, c);`
187			`e = (v2sf) {-10, -78};`
188			`if (!__builtin_mips_upper_c_eq_ps (d, e) \|\|`
189			`!__builtin_mips_lower_c_eq_ps (d, e))`
190			`abort ();`
191
192			`a = (v2sf) {1, 12};`
193			`b = (v2sf) {5, 6};`
194			`c = (v2sf) {5, 6};`
195			`d = nmsub (a, b, c);`
196			`e = (v2sf) {0, -66};`
197			`if (!__builtin_mips_upper_c_eq_ps (d, e) \|\|`
198			`!__builtin_mips_lower_c_eq_ps (d, e))`
199			`abort ();`
200
201			`a = (v2sf) {98, 12};`
202			`b = neg (a);`
203			`c = (v2sf) {-98, -12};`
204			`if (!__builtin_mips_upper_c_eq_ps (b, c) \|\|`
205			`!__builtin_mips_lower_c_eq_ps (b, c))`
206			`abort ();`
207
208			`a = (v2sf) {1, 12};`
209			`b = (v2sf) {5, 6};`
210			`c = cond_move1 (a, b, 1000);`
211			`if (!__builtin_mips_upper_c_eq_ps (c, a) \|\|`
212			`!__builtin_mips_lower_c_eq_ps (c, a))`
213			`abort ();`
214
215			`a = (v2sf) {1, 12};`
216			`b = (v2sf) {5, 6};`
217			`c = cond_move2 (a, b, -1000);`
218			`if (!__builtin_mips_upper_c_eq_ps (c, b) \|\|`
219			`!__builtin_mips_lower_c_eq_ps (c, b))`
220			`abort ();`
221
222			`a = (v2sf) {1, 12};`
223			`b = (v2sf) {5, 6};`
224			`c = cond_move3 (a, b, 9.0);`
225			`if (!__builtin_mips_upper_c_eq_ps (c, a) \|\|`
226			`!__builtin_mips_lower_c_eq_ps (c, a))`
227			`abort ();`
228
229			`a = (v2sf) {1, 12};`
230			`b = (v2sf) {5, 6};`
231			`c = cond_move4 (a, b, -10.0);`
232			`if (!__builtin_mips_upper_c_eq_ps (c, b) \|\|`
233			`!__builtin_mips_lower_c_eq_ps (c, b))`
234			`abort ();`
235
236			`a = (v2sf) {5, 12};`
237			`b = (v2sf) {5, 6};`
238			`c = (v2sf) {33, 123};`
239			`d = (v2sf) {8, 78};`
240			`e = __builtin_mips_movt_c_eq_ps (a, b, c, d);`
241			`f = (v2sf) {8, 123};`
242			`if (!__builtin_mips_upper_c_eq_ps (e, f) \|\|`
243			`!__builtin_mips_lower_c_eq_ps (e, f))`
244			`abort ();`
245
246			`a = (v2sf) {5, 12};`
247			`b = (v2sf) {5, 6};`
248			`c = (v2sf) {33, 123};`
249			`d = (v2sf) {8, 78};`
250			`e = __builtin_mips_movf_c_eq_ps (a, b, c, d);`
251			`f = (v2sf) {33, 78};`
252			`if (!__builtin_mips_upper_c_eq_ps (e, f) \|\|`
253			`!__builtin_mips_lower_c_eq_ps (e, f))`
254			`abort ();`
255
256			`a = load();`
257			`b = (v2sf) {100, 200};`
258			`if (!__builtin_mips_upper_c_eq_ps (a, b) \|\|`
259			`!__builtin_mips_lower_c_eq_ps (a, b))`
260			`abort ();`
261
262			`a = (v2sf) {123, 321};`
263			`store (a);`
264			`b = load();`
265			`if (!__builtin_mips_upper_c_eq_ps (a, b) \|\|`
266			`!__builtin_mips_lower_c_eq_ps (a, b))`
267			`abort ();`
268
269			`printf ("Test Passes\n");`
270			`exit (0);`
271			`}`