1 /* { dg-do compile { target { powerpc*-*-* && lp64 } } } */ 2 /* { dg-require-effective-target powerpc_p9vector_ok } */ 3 /* { dg-options "-mpower9-vector -O2" } */ 4 5 #ifndef TYPE 6 #define TYPE float 7 #endif 8 9 #ifndef TYPE_IN 10 #define TYPE_IN TYPE 11 #endif 12 13 #ifndef TYPE_OUT 14 #define TYPE_OUT TYPE 15 #endif 16 17 #ifndef ITYPE 18 #define ITYPE long 19 #endif 20 21 #ifdef DO_CALL 22 extern ITYPE get_bits (ITYPE); 23 24 #else 25 #define get_bits(X) (X) 26 #endif 27 test(ITYPE * bits,ITYPE n,TYPE one,TYPE_IN * p,TYPE_OUT * q)28void test (ITYPE *bits, ITYPE n, TYPE one, TYPE_IN *p, TYPE_OUT *q) 29 { 30 TYPE x_00 = p[ 0]; 31 TYPE x_01 = p[ 1]; 32 TYPE x_02 = p[ 2]; 33 TYPE x_03 = p[ 3]; 34 TYPE x_04 = p[ 4]; 35 TYPE x_05 = p[ 5]; 36 TYPE x_06 = p[ 6]; 37 TYPE x_07 = p[ 7]; 38 TYPE x_08 = p[ 8]; 39 TYPE x_09 = p[ 9]; 40 41 TYPE x_10 = p[10]; 42 TYPE x_11 = p[11]; 43 TYPE x_12 = p[12]; 44 TYPE x_13 = p[13]; 45 TYPE x_14 = p[14]; 46 TYPE x_15 = p[15]; 47 TYPE x_16 = p[16]; 48 TYPE x_17 = p[17]; 49 TYPE x_18 = p[18]; 50 TYPE x_19 = p[19]; 51 52 TYPE x_20 = p[20]; 53 TYPE x_21 = p[21]; 54 TYPE x_22 = p[22]; 55 TYPE x_23 = p[23]; 56 TYPE x_24 = p[24]; 57 TYPE x_25 = p[25]; 58 TYPE x_26 = p[26]; 59 TYPE x_27 = p[27]; 60 TYPE x_28 = p[28]; 61 TYPE x_29 = p[29]; 62 63 TYPE x_30 = p[30]; 64 TYPE x_31 = p[31]; 65 TYPE x_32 = p[32]; 66 TYPE x_33 = p[33]; 67 TYPE x_34 = p[34]; 68 TYPE x_35 = p[35]; 69 TYPE x_36 = p[36]; 70 TYPE x_37 = p[37]; 71 TYPE x_38 = p[38]; 72 TYPE x_39 = p[39]; 73 74 TYPE x_40 = p[40]; 75 TYPE x_41 = p[41]; 76 TYPE x_42 = p[42]; 77 TYPE x_43 = p[43]; 78 TYPE x_44 = p[44]; 79 TYPE x_45 = p[45]; 80 TYPE x_46 = p[46]; 81 TYPE x_47 = p[47]; 82 TYPE x_48 = p[48]; 83 TYPE x_49 = p[49]; 84 85 ITYPE i; 86 87 for (i = 0; i < n; i++) 88 { 89 ITYPE bit = get_bits (bits[i]); 90 91 if ((bit & ((ITYPE)1) << 0) != 0) x_00 += one; 92 if ((bit & ((ITYPE)1) << 1) != 0) x_01 += one; 93 if ((bit & ((ITYPE)1) << 2) != 0) x_02 += one; 94 if ((bit & ((ITYPE)1) << 3) != 0) x_03 += one; 95 if ((bit & ((ITYPE)1) << 4) != 0) x_04 += one; 96 if ((bit & ((ITYPE)1) << 5) != 0) x_05 += one; 97 if ((bit & ((ITYPE)1) << 6) != 0) x_06 += one; 98 if ((bit & ((ITYPE)1) << 7) != 0) x_07 += one; 99 if ((bit & ((ITYPE)1) << 8) != 0) x_08 += one; 100 if ((bit & ((ITYPE)1) << 9) != 0) x_09 += one; 101 102 if ((bit & ((ITYPE)1) << 10) != 0) x_10 += one; 103 if ((bit & ((ITYPE)1) << 11) != 0) x_11 += one; 104 if ((bit & ((ITYPE)1) << 12) != 0) x_12 += one; 105 if ((bit & ((ITYPE)1) << 13) != 0) x_13 += one; 106 if ((bit & ((ITYPE)1) << 14) != 0) x_14 += one; 107 if ((bit & ((ITYPE)1) << 15) != 0) x_15 += one; 108 if ((bit & ((ITYPE)1) << 16) != 0) x_16 += one; 109 if ((bit & ((ITYPE)1) << 17) != 0) x_17 += one; 110 if ((bit & ((ITYPE)1) << 18) != 0) x_18 += one; 111 if ((bit & ((ITYPE)1) << 19) != 0) x_19 += one; 112 113 if ((bit & ((ITYPE)1) << 20) != 0) x_20 += one; 114 if ((bit & ((ITYPE)1) << 21) != 0) x_21 += one; 115 if ((bit & ((ITYPE)1) << 22) != 0) x_22 += one; 116 if ((bit & ((ITYPE)1) << 23) != 0) x_23 += one; 117 if ((bit & ((ITYPE)1) << 24) != 0) x_24 += one; 118 if ((bit & ((ITYPE)1) << 25) != 0) x_25 += one; 119 if ((bit & ((ITYPE)1) << 26) != 0) x_26 += one; 120 if ((bit & ((ITYPE)1) << 27) != 0) x_27 += one; 121 if ((bit & ((ITYPE)1) << 28) != 0) x_28 += one; 122 if ((bit & ((ITYPE)1) << 29) != 0) x_29 += one; 123 124 if ((bit & ((ITYPE)1) << 30) != 0) x_30 += one; 125 if ((bit & ((ITYPE)1) << 31) != 0) x_31 += one; 126 if ((bit & ((ITYPE)1) << 32) != 0) x_32 += one; 127 if ((bit & ((ITYPE)1) << 33) != 0) x_33 += one; 128 if ((bit & ((ITYPE)1) << 34) != 0) x_34 += one; 129 if ((bit & ((ITYPE)1) << 35) != 0) x_35 += one; 130 if ((bit & ((ITYPE)1) << 36) != 0) x_36 += one; 131 if ((bit & ((ITYPE)1) << 37) != 0) x_37 += one; 132 if ((bit & ((ITYPE)1) << 38) != 0) x_38 += one; 133 if ((bit & ((ITYPE)1) << 39) != 0) x_39 += one; 134 135 if ((bit & ((ITYPE)1) << 40) != 0) x_40 += one; 136 if ((bit & ((ITYPE)1) << 41) != 0) x_41 += one; 137 if ((bit & ((ITYPE)1) << 42) != 0) x_42 += one; 138 if ((bit & ((ITYPE)1) << 43) != 0) x_43 += one; 139 if ((bit & ((ITYPE)1) << 44) != 0) x_44 += one; 140 if ((bit & ((ITYPE)1) << 45) != 0) x_45 += one; 141 if ((bit & ((ITYPE)1) << 46) != 0) x_46 += one; 142 if ((bit & ((ITYPE)1) << 47) != 0) x_47 += one; 143 if ((bit & ((ITYPE)1) << 48) != 0) x_48 += one; 144 if ((bit & ((ITYPE)1) << 49) != 0) x_49 += one; 145 } 146 147 q[ 0] = x_00; 148 q[ 1] = x_01; 149 q[ 2] = x_02; 150 q[ 3] = x_03; 151 q[ 4] = x_04; 152 q[ 5] = x_05; 153 q[ 6] = x_06; 154 q[ 7] = x_07; 155 q[ 8] = x_08; 156 q[ 9] = x_09; 157 158 q[10] = x_10; 159 q[11] = x_11; 160 q[12] = x_12; 161 q[13] = x_13; 162 q[14] = x_14; 163 q[15] = x_15; 164 q[16] = x_16; 165 q[17] = x_17; 166 q[18] = x_18; 167 q[19] = x_19; 168 169 q[20] = x_20; 170 q[21] = x_21; 171 q[22] = x_22; 172 q[23] = x_23; 173 q[24] = x_24; 174 q[25] = x_25; 175 q[26] = x_26; 176 q[27] = x_27; 177 q[28] = x_28; 178 q[29] = x_29; 179 180 q[30] = x_30; 181 q[31] = x_31; 182 q[32] = x_32; 183 q[33] = x_33; 184 q[34] = x_34; 185 q[35] = x_35; 186 q[36] = x_36; 187 q[37] = x_37; 188 q[38] = x_38; 189 q[39] = x_39; 190 191 q[40] = x_40; 192 q[41] = x_41; 193 q[42] = x_42; 194 q[43] = x_43; 195 q[44] = x_44; 196 q[45] = x_45; 197 q[46] = x_46; 198 q[47] = x_47; 199 q[48] = x_48; 200 q[49] = x_49; 201 } 202 203 /* { dg-final { scan-assembler "lxssp " } } */ 204 /* { dg-final { scan-assembler "stxssp " } } */ 205 /* { dg-final { scan-assembler-not "mfvsrd " } } */ 206 /* { dg-final { scan-assembler-not "mtvsrd " } } */ 207 /* { dg-final { scan-assembler-not "xscvdpspn " } } */ 208 209