111
|
1 /* { dg-do compile } */
|
|
2 /* { dg-options "-std=gnu99" } */
|
|
3
|
|
4 /* C99 6.5.3 Unary ~. */
|
|
5
|
|
6 void test ()
|
|
7 {
|
|
8 short _Fract sf;
|
|
9 _Fract f;
|
|
10 long _Fract lf;
|
|
11 long long _Fract llf;
|
|
12 unsigned short _Fract usf;
|
|
13 unsigned _Fract uf;
|
|
14 unsigned long _Fract ulf;
|
|
15 unsigned long long _Fract ullf;
|
|
16 _Sat short _Fract Ssf;
|
|
17 _Sat _Fract Sf;
|
|
18 _Sat long _Fract Slf;
|
|
19 _Sat long long _Fract Sllf;
|
|
20 _Sat unsigned short _Fract Susf;
|
|
21 _Sat unsigned _Fract Suf;
|
|
22 _Sat unsigned long _Fract Sulf;
|
|
23 _Sat unsigned long long _Fract Sullf;
|
|
24 short _Accum sa;
|
|
25 _Accum a;
|
|
26 long _Accum la;
|
|
27 long long _Accum lla;
|
|
28 unsigned short _Accum usa;
|
|
29 unsigned _Accum ua;
|
|
30 unsigned long _Accum ula;
|
|
31 unsigned long long _Accum ulla;
|
|
32 _Sat short _Accum Ssa;
|
|
33 _Sat _Accum Sa;
|
|
34 _Sat long _Accum Sla;
|
|
35 _Sat long long _Accum Slla;
|
|
36 _Sat unsigned short _Accum Susa;
|
|
37 _Sat unsigned _Accum Sua;
|
|
38 _Sat unsigned long _Accum Sula;
|
|
39 _Sat unsigned long long _Accum Sulla;
|
|
40
|
|
41 /* C99 Section 6.5.3.3 ~ shall have integer types. */
|
|
42
|
|
43 ~sf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
44 ~f; /* { dg-error "wrong type argument to bit-complement" } */
|
|
45 ~lf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
46 ~llf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
47 ~usf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
48 ~uf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
49 ~ulf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
50 ~ullf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
51 ~Ssf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
52 ~Sf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
53 ~Slf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
54 ~Sllf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
55 ~Susf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
56 ~Suf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
57 ~Sulf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
58 ~Sullf; /* { dg-error "wrong type argument to bit-complement" } */
|
|
59 ~sa; /* { dg-error "wrong type argument to bit-complement" } */
|
|
60 ~a; /* { dg-error "wrong type argument to bit-complement" } */
|
|
61 ~la; /* { dg-error "wrong type argument to bit-complement" } */
|
|
62 ~lla; /* { dg-error "wrong type argument to bit-complement" } */
|
|
63 ~usa; /* { dg-error "wrong type argument to bit-complement" } */
|
|
64 ~ua; /* { dg-error "wrong type argument to bit-complement" } */
|
|
65 ~ula; /* { dg-error "wrong type argument to bit-complement" } */
|
|
66 ~ulla; /* { dg-error "wrong type argument to bit-complement" } */
|
|
67 ~Ssa; /* { dg-error "wrong type argument to bit-complement" } */
|
|
68 ~Sa; /* { dg-error "wrong type argument to bit-complement" } */
|
|
69 ~Sla; /* { dg-error "wrong type argument to bit-complement" } */
|
|
70 ~Slla; /* { dg-error "wrong type argument to bit-complement" } */
|
|
71 ~Susa; /* { dg-error "wrong type argument to bit-complement" } */
|
|
72 ~Sua; /* { dg-error "wrong type argument to bit-complement" } */
|
|
73 ~Sula; /* { dg-error "wrong type argument to bit-complement" } */
|
|
74 ~Sulla; /* { dg-error "wrong type argument to bit-complement" } */
|
|
75
|
|
76 }
|