]>
Commit | Line | Data |
---|---|---|
5d24a977 TS |
1 | ! { dg-do run } |
2 | ! verifies basic functioning of the ishft and ishftc intrinsics | |
7d6ce202 TK |
3 | if (ishft (1_1, 0) /= 1) STOP 1 |
4 | if (ishft (1_1, 1) /= 2) STOP 2 | |
5 | if (ishft (3_1, 1) /= 6) STOP 3 | |
6 | if (ishft (-1_1, 1) /= -2) STOP 4 | |
7 | if (ishft (-1_1, -1) /= 127) STOP 5 | |
8 | if (ishft (96_1, 2) /= -128) STOP 6 | |
9 | ||
10 | if (ishft (1_2, 0) /= 1) STOP 7 | |
11 | if (ishft (1_2, 1) /= 2) STOP 8 | |
12 | if (ishft (3_2, 1) /= 6) STOP 9 | |
13 | if (ishft (-1_2, 1) /= -2) STOP 10 | |
14 | if (ishft (-1_2, -1) /= 32767) STOP 11 | |
15 | if (ishft (16384_2 + 8192_2, 2) /= -32768_4) STOP 12 | |
16 | ||
17 | if (ishft (1_4, 0) /= 1) STOP 13 | |
18 | if (ishft (1_4, 1) /= 2) STOP 14 | |
19 | if (ishft (3_4, 1) /= 6) STOP 15 | |
20 | if (ishft (-1_4, 1) /= -2) STOP 16 | |
21 | if (ishft (-1_4, -1) /= 2147483647) STOP 17 | |
22 | if (ishft (1073741824_4 + 536870912_4, 2) /= -2147483648_8) STOP 18 | |
23 | ||
24 | if (ishft (1_8, 0) /= 1) STOP 19 | |
25 | if (ishft (1_8, 1) /= 2) STOP 20 | |
26 | if (ishft (3_8, 1) /= 6) STOP 21 | |
27 | if (ishft (-1_8, 1) /= -2) STOP 22 | |
7d6ce202 TK |
28 | |
29 | if (ishftc (1_1, 0) /= 1) STOP 24 | |
30 | if (ishftc (1_1, 1) /= 2) STOP 25 | |
31 | if (ishftc (3_1, 1) /= 6) STOP 26 | |
32 | if (ishftc (-1_1, 1) /= -1) STOP 27 | |
33 | if (ishftc (-1_1, -1) /= -1) STOP 28 | |
34 | if (ishftc (ishftc (96_1, 2), -2) /= 96) STOP 29 | |
35 | ||
36 | if (ishftc (1_2, 0) /= 1) STOP 30 | |
37 | if (ishftc (1_2, 1) /= 2) STOP 31 | |
38 | if (ishftc (3_2, 1) /= 6) STOP 32 | |
39 | if (ishftc (-1_2, 1) /= -1) STOP 33 | |
40 | if (ishftc (-1_2, -1) /= -1) STOP 34 | |
41 | if (ishftc (ishftc (25000_2, 2), -2) /= 25000) STOP 35 | |
42 | ||
43 | if (ishftc (1_4, 0) /= 1) STOP 36 | |
44 | if (ishftc (1_4, 1) /= 2) STOP 37 | |
45 | if (ishftc (3_4, 1) /= 6) STOP 38 | |
46 | if (ishftc (-1_4, 1) /= -1) STOP 39 | |
47 | if (ishftc (-1_4, -1) /= -1) STOP 40 | |
48 | if (ishftc (ishftc (1325876_4, 2), -2) /= 1325876) STOP 41 | |
49 | ||
50 | if (ishftc (1_8, 0) /= 1) STOP 42 | |
51 | if (ishftc (1_8, 1) /= 2) STOP 43 | |
52 | if (ishftc (3_8, 1) /= 6) STOP 44 | |
53 | if (ishftc (-1_8, 1) /= -1) STOP 45 | |
54 | if (ishftc (-1_8, -1) /= -1) STOP 46 | |
55 | if (ishftc (ishftc (1325876_8, 2), -2) /= 1325876) STOP 47 | |
5d24a977 | 56 | end |
5d874166 TS |
57 | |
58 |