Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/leadz_trailz_1.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 84e7813d76e9 |
children |
comparison
equal
deleted
inserted
replaced
130:e108057fa461 | 132:d34655255c78 |
---|---|
8 i1 = -1 | 8 i1 = -1 |
9 i2 = -1 | 9 i2 = -1 |
10 i4 = -1 | 10 i4 = -1 |
11 i8 = -1 | 11 i8 = -1 |
12 | 12 |
13 if (leadz(i1) /= 0) call abort | 13 if (leadz(i1) /= 0) STOP 1 |
14 if (leadz(i2) /= 0) call abort | 14 if (leadz(i2) /= 0) STOP 2 |
15 if (leadz(i4) /= 0) call abort | 15 if (leadz(i4) /= 0) STOP 3 |
16 if (leadz(i8) /= 0) call abort | 16 if (leadz(i8) /= 0) STOP 4 |
17 | 17 |
18 if (trailz(i1) /= 0) call abort | 18 if (trailz(i1) /= 0) STOP 5 |
19 if (trailz(i2) /= 0) call abort | 19 if (trailz(i2) /= 0) STOP 6 |
20 if (trailz(i4) /= 0) call abort | 20 if (trailz(i4) /= 0) STOP 7 |
21 if (trailz(i8) /= 0) call abort | 21 if (trailz(i8) /= 0) STOP 8 |
22 | 22 |
23 if (leadz(-1_1) /= 0) call abort | 23 if (leadz(-1_1) /= 0) STOP 9 |
24 if (leadz(-1_2) /= 0) call abort | 24 if (leadz(-1_2) /= 0) STOP 10 |
25 if (leadz(-1_4) /= 0) call abort | 25 if (leadz(-1_4) /= 0) STOP 11 |
26 if (leadz(-1_8) /= 0) call abort | 26 if (leadz(-1_8) /= 0) STOP 12 |
27 | 27 |
28 if (trailz(-1_1) /= 0) call abort | 28 if (trailz(-1_1) /= 0) STOP 13 |
29 if (trailz(-1_2) /= 0) call abort | 29 if (trailz(-1_2) /= 0) STOP 14 |
30 if (trailz(-1_4) /= 0) call abort | 30 if (trailz(-1_4) /= 0) STOP 15 |
31 if (trailz(-1_8) /= 0) call abort | 31 if (trailz(-1_8) /= 0) STOP 16 |
32 | 32 |
33 i1 = -64 | 33 i1 = -64 |
34 i2 = -64 | 34 i2 = -64 |
35 i4 = -64 | 35 i4 = -64 |
36 i8 = -64 | 36 i8 = -64 |
37 | 37 |
38 if (leadz(i1) /= 0) call abort | 38 if (leadz(i1) /= 0) STOP 17 |
39 if (leadz(i2) /= 0) call abort | 39 if (leadz(i2) /= 0) STOP 18 |
40 if (leadz(i4) /= 0) call abort | 40 if (leadz(i4) /= 0) STOP 19 |
41 if (leadz(i8) /= 0) call abort | 41 if (leadz(i8) /= 0) STOP 20 |
42 | 42 |
43 if (trailz(i1) /= 6) call abort | 43 if (trailz(i1) /= 6) STOP 21 |
44 if (trailz(i2) /= 6) call abort | 44 if (trailz(i2) /= 6) STOP 22 |
45 if (trailz(i4) /= 6) call abort | 45 if (trailz(i4) /= 6) STOP 23 |
46 if (trailz(i8) /= 6) call abort | 46 if (trailz(i8) /= 6) STOP 24 |
47 | 47 |
48 if (leadz(-64_1) /= 0) call abort | 48 if (leadz(-64_1) /= 0) STOP 25 |
49 if (leadz(-64_2) /= 0) call abort | 49 if (leadz(-64_2) /= 0) STOP 26 |
50 if (leadz(-64_4) /= 0) call abort | 50 if (leadz(-64_4) /= 0) STOP 27 |
51 if (leadz(-64_8) /= 0) call abort | 51 if (leadz(-64_8) /= 0) STOP 28 |
52 | 52 |
53 if (trailz(-64_1) /= 6) call abort | 53 if (trailz(-64_1) /= 6) STOP 29 |
54 if (trailz(-64_2) /= 6) call abort | 54 if (trailz(-64_2) /= 6) STOP 30 |
55 if (trailz(-64_4) /= 6) call abort | 55 if (trailz(-64_4) /= 6) STOP 31 |
56 if (trailz(-64_8) /= 6) call abort | 56 if (trailz(-64_8) /= 6) STOP 32 |
57 | 57 |
58 i1 = -108 | 58 i1 = -108 |
59 i2 = -108 | 59 i2 = -108 |
60 i4 = -108 | 60 i4 = -108 |
61 i8 = -108 | 61 i8 = -108 |
62 | 62 |
63 if (leadz(i1) /= 0) call abort | 63 if (leadz(i1) /= 0) STOP 33 |
64 if (leadz(i2) /= 0) call abort | 64 if (leadz(i2) /= 0) STOP 34 |
65 if (leadz(i4) /= 0) call abort | 65 if (leadz(i4) /= 0) STOP 35 |
66 if (leadz(i8) /= 0) call abort | 66 if (leadz(i8) /= 0) STOP 36 |
67 | 67 |
68 if (trailz(i1) /= 2) call abort | 68 if (trailz(i1) /= 2) STOP 37 |
69 if (trailz(i2) /= 2) call abort | 69 if (trailz(i2) /= 2) STOP 38 |
70 if (trailz(i4) /= 2) call abort | 70 if (trailz(i4) /= 2) STOP 39 |
71 if (trailz(i8) /= 2) call abort | 71 if (trailz(i8) /= 2) STOP 40 |
72 | 72 |
73 if (leadz(-108_1) /= 0) call abort | 73 if (leadz(-108_1) /= 0) STOP 41 |
74 if (leadz(-108_2) /= 0) call abort | 74 if (leadz(-108_2) /= 0) STOP 42 |
75 if (leadz(-108_4) /= 0) call abort | 75 if (leadz(-108_4) /= 0) STOP 43 |
76 if (leadz(-108_8) /= 0) call abort | 76 if (leadz(-108_8) /= 0) STOP 44 |
77 | 77 |
78 if (trailz(-108_1) /= 2) call abort | 78 if (trailz(-108_1) /= 2) STOP 45 |
79 if (trailz(-108_2) /= 2) call abort | 79 if (trailz(-108_2) /= 2) STOP 46 |
80 if (trailz(-108_4) /= 2) call abort | 80 if (trailz(-108_4) /= 2) STOP 47 |
81 if (trailz(-108_8) /= 2) call abort | 81 if (trailz(-108_8) /= 2) STOP 48 |
82 | 82 |
83 i1 = 1 | 83 i1 = 1 |
84 i2 = 1 | 84 i2 = 1 |
85 i4 = 1 | 85 i4 = 1 |
86 i8 = 1 | 86 i8 = 1 |
87 | 87 |
88 if (leadz(i1) /= bit_size(i1) - 1) call abort | 88 if (leadz(i1) /= bit_size(i1) - 1) STOP 49 |
89 if (leadz(i2) /= bit_size(i2) - 1) call abort | 89 if (leadz(i2) /= bit_size(i2) - 1) STOP 50 |
90 if (leadz(i4) /= bit_size(i4) - 1) call abort | 90 if (leadz(i4) /= bit_size(i4) - 1) STOP 51 |
91 if (leadz(i8) /= bit_size(i8) - 1) call abort | 91 if (leadz(i8) /= bit_size(i8) - 1) STOP 52 |
92 | 92 |
93 if (trailz(i1) /= 0) call abort | 93 if (trailz(i1) /= 0) STOP 53 |
94 if (trailz(i2) /= 0) call abort | 94 if (trailz(i2) /= 0) STOP 54 |
95 if (trailz(i4) /= 0) call abort | 95 if (trailz(i4) /= 0) STOP 55 |
96 if (trailz(i8) /= 0) call abort | 96 if (trailz(i8) /= 0) STOP 56 |
97 | 97 |
98 if (leadz(1_1) /= bit_size(1_1) - 1) call abort | 98 if (leadz(1_1) /= bit_size(1_1) - 1) STOP 57 |
99 if (leadz(1_2) /= bit_size(1_2) - 1) call abort | 99 if (leadz(1_2) /= bit_size(1_2) - 1) STOP 58 |
100 if (leadz(1_4) /= bit_size(1_4) - 1) call abort | 100 if (leadz(1_4) /= bit_size(1_4) - 1) STOP 59 |
101 if (leadz(1_8) /= bit_size(1_8) - 1) call abort | 101 if (leadz(1_8) /= bit_size(1_8) - 1) STOP 60 |
102 | 102 |
103 if (trailz(1_1) /= 0) call abort | 103 if (trailz(1_1) /= 0) STOP 61 |
104 if (trailz(1_2) /= 0) call abort | 104 if (trailz(1_2) /= 0) STOP 62 |
105 if (trailz(1_4) /= 0) call abort | 105 if (trailz(1_4) /= 0) STOP 63 |
106 if (trailz(1_8) /= 0) call abort | 106 if (trailz(1_8) /= 0) STOP 64 |
107 | 107 |
108 i1 = 64 | 108 i1 = 64 |
109 i2 = 64 | 109 i2 = 64 |
110 i4 = 64 | 110 i4 = 64 |
111 i8 = 64 | 111 i8 = 64 |
112 | 112 |
113 if (leadz(i1) /= 1) call abort | 113 if (leadz(i1) /= 1) STOP 65 |
114 if (leadz(i2) /= 9) call abort | 114 if (leadz(i2) /= 9) STOP 66 |
115 if (leadz(i4) /= 25) call abort | 115 if (leadz(i4) /= 25) STOP 67 |
116 if (leadz(i8) /= 57) call abort | 116 if (leadz(i8) /= 57) STOP 68 |
117 | 117 |
118 if (trailz(i1) /= 6) call abort | 118 if (trailz(i1) /= 6) STOP 69 |
119 if (trailz(i2) /= 6) call abort | 119 if (trailz(i2) /= 6) STOP 70 |
120 if (trailz(i4) /= 6) call abort | 120 if (trailz(i4) /= 6) STOP 71 |
121 if (trailz(i8) /= 6) call abort | 121 if (trailz(i8) /= 6) STOP 72 |
122 | 122 |
123 if (leadz(64_1) /= 1) call abort | 123 if (leadz(64_1) /= 1) STOP 73 |
124 if (leadz(64_2) /= 9) call abort | 124 if (leadz(64_2) /= 9) STOP 74 |
125 if (leadz(64_4) /= 25) call abort | 125 if (leadz(64_4) /= 25) STOP 75 |
126 if (leadz(64_8) /= 57) call abort | 126 if (leadz(64_8) /= 57) STOP 76 |
127 | 127 |
128 if (trailz(64_1) /= 6) call abort | 128 if (trailz(64_1) /= 6) STOP 77 |
129 if (trailz(64_2) /= 6) call abort | 129 if (trailz(64_2) /= 6) STOP 78 |
130 if (trailz(64_4) /= 6) call abort | 130 if (trailz(64_4) /= 6) STOP 79 |
131 if (trailz(64_8) /= 6) call abort | 131 if (trailz(64_8) /= 6) STOP 80 |
132 | 132 |
133 end | 133 end |