File: test_abs.cl

package info (click to toggle)
pocl 6.0-7
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 25,320 kB
  • sloc: lisp: 149,513; ansic: 103,778; cpp: 54,947; python: 1,513; sh: 949; ruby: 255; pascal: 226; tcl: 180; makefile: 175; java: 72; xml: 49
file content (28 lines) | stat: -rw-r--r-- 923 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
#include "common.cl"
#include "common_hadd.cl"

DEFINE_BODY_G_HADD (test_abs, ({
                      // abs
                      equal = true;
                      for (int n = 0; n < vecsize; ++n)
                        {
                          equal = equal && res_abs.s[n] == good_abs.s[n];
                        }
                      if (!equal)
                        {
                          printf ("FAIL: abs type=%s\n", typename);
                          for (int n = 0; n < vecsize; ++n)
                            {
                              printf ("   [%d] a=%d good=%d res=%d\n", n,
                                      (int)x.s[n], (int)good_abs.s[n],
                                      (int)res_abs.s[n]);
                            }
                          error = true;
                        }
                    }))

kernel void
test_abs ()
{
  CALL_FUNC_G (test_abs)
}