gcc/testsuite/gcc.target/powerpc/dform-2.c

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