File: vect-singleton_1.c

package info (click to toggle)
gcc-arm-none-eabi 15%3A14.2.rel1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,099,328 kB
  • sloc: cpp: 3,627,108; ansic: 2,571,498; ada: 834,230; f90: 235,082; makefile: 79,231; asm: 74,984; xml: 51,692; exp: 39,736; sh: 33,298; objc: 15,629; python: 15,069; fortran: 14,429; pascal: 7,003; awk: 5,070; perl: 3,106; ml: 285; lisp: 253; lex: 204; haskell: 135
file content (38 lines) | stat: -rw-r--r-- 1,045 bytes parent folder | download 
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
 
/* PR target/59843 ICE on function taking/returning vector of one float64_t.  */

/* { dg-do compile } */
/* { dg-additional-options "-Warray-bounds -O2 -fno-inline -std=c99" } */

#define TEST(BASETYPE, VECTYPE, SUFFIX)					     \
  typedef BASETYPE VECTYPE						     \
      __attribute__ ((__vector_size__ (sizeof (BASETYPE))));		     \
  VECTYPE								     \
  test_vadd_##SUFFIX (VECTYPE a, VECTYPE b)				     \
  {									     \
    return a + b;							     \
  }									     \
									     \
  void									     \
  test_##SUFFIX (BASETYPE val)						     \
  {									     \
    VECTYPE var = { val };						     \
    BASETYPE v0 = var[0];						     \
    BASETYPE v1 = var[1]; /* { dg-warning "index value is out of bound" } */ \
  }

TEST (double, float64x1_t, f64)

/* Original bug was for above type;
   in a nod to completeness, test other types too.  */

TEST (long long, int64x1_t, s64)

TEST (float, float32x1_t, f32)

TEST (long, longx1_t, l)

TEST (int, intx1_t, i)

TEST (short, int16x1_t, s16)

TEST (char, int8x1_t, s8)