File: vector-shift.c

package info (click to toggle)
gcc-arm-none-eabi 15%3A12.2.rel1-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 959,712 kB
  • sloc: cpp: 3,275,382; ansic: 2,061,766; ada: 840,956; f90: 208,513; makefile: 76,132; asm: 73,433; xml: 50,448; exp: 34,146; sh: 32,436; objc: 15,637; fortran: 14,012; python: 11,991; pascal: 6,787; awk: 4,779; perl: 3,054; yacc: 338; ml: 285; lex: 201; haskell: 122
file content (49 lines) | stat: -rw-r--r-- 1,747 bytes parent folder | download | duplicates (10)
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
/* { dg-do run } */

#define vector __attribute__((vector_size(sizeof(int)*4) ))

static vector int allones = {1, 1, 1, 1};
static vector int allzeros = {0, 0, 0, 0};
static vector int numbers = {0, 1, 2, 3};
static vector int numbersleftshiftallones = {0, 2, 4, 6};
static vector int numbersrightshiftallones = {0, 0, 1, 1};


static vector unsigned int uallones = {1, 1, 1, 1};
static vector unsigned int uallzeros = {0, 0, 0, 0};
static vector unsigned int unumbers = {0, 1, 2, 3};
static vector unsigned int unumbersleftshiftallones = {0, 2, 4, 6};
static vector unsigned int unumbersrightshiftallones = {0, 0, 1, 1};

#define TEST(result, expected) \
do { \
  __typeof__(result) result1 = result; \
  if(sizeof (result1) != sizeof (expected)) \
    __builtin_abort (); \
  if (__builtin_memcmp (&result1, &expected, sizeof(result1)) != 0) \
    __builtin_abort (); \
}while (0);

int main(void)
{
  vector int result;
  TEST ((numbers << allzeros), numbers);
  TEST ((numbers >> allzeros), numbers);
  TEST((numbers << allones), numbersleftshiftallones);
  TEST((numbers >> allones), numbersrightshiftallones);
  /* Test left shift followed by a right shift, numbers should be back as
     numbers are all small numbers and no lose of precision happens.   */
  TEST((numbers << allones) >> allones, numbers);
  
  
  
  TEST ((unumbers << uallzeros), unumbers);
  TEST ((unumbers >> uallzeros), unumbers);
  TEST((unumbers << uallones), unumbersleftshiftallones);
  TEST((unumbers >> uallones), unumbersrightshiftallones);
  /* Test left shift followed by a right shift, numbers should be back as
     numbers are all small numbers and no lose of precision happens.   */
  TEST((unumbers << uallones) >> uallones, unumbers);

  return 0;  
}