| /* { dg-do run { target { power10_hw } } } */ |
| /* { dg-do link { target { ! power10_hw } } } */ |
| /* { dg-require-effective-target power10_ok } */ |
| /* { dg-options "-mdejagnu-cpu=power10 -save-temps" } */ |
| #include <altivec.h> |
| |
| #define DEBUG 0 |
| |
| #if DEBUG |
| #include <stdio.h> |
| #endif |
| |
| extern void abort (void); |
| |
| int |
| main (int argc, char *argv []) |
| { |
| int i; |
| vector signed char vsrc_a_char, vsrc_b_char; |
| vector signed char vresult_char; |
| vector signed char expected_vresult_char; |
| |
| vector unsigned char vsrc_a_uchar, vsrc_b_uchar, vsrc_c_uchar; |
| vector unsigned char vresult_uchar; |
| vector unsigned char expected_vresult_uchar; |
| |
| vector signed short vsrc_a_short, vsrc_b_short, vsrc_c_short; |
| vector signed short vresult_short; |
| vector signed short expected_vresult_short; |
| |
| vector unsigned short vsrc_a_ushort, vsrc_b_ushort, vsrc_c_ushort; |
| vector unsigned short vresult_ushort; |
| vector unsigned short expected_vresult_ushort; |
| |
| vector int vsrc_a_int, vsrc_b_int, vsrc_c_int; |
| vector int vresult_int; |
| vector int expected_vresult_int; |
| |
| vector unsigned int vsrc_a_uint, vsrc_b_uint, vsrc_c_uint; |
| vector unsigned int vresult_uint; |
| vector unsigned int expected_vresult_uint; |
| |
| vector long long int vsrc_a_ll, vsrc_b_ll, vsrc_c_ll; |
| vector long long int vresult_ll; |
| vector long long int expected_vresult_ll; |
| |
| vector unsigned long long int vsrc_a_ull, vsrc_b_ull, vsrc_c_ull; |
| vector unsigned long long int vresult_ull; |
| vector unsigned long long int expected_vresult_ull; |
| |
| vector float vresult_f; |
| vector float expected_vresult_f; |
| vector float vsrc_a_f, vsrc_b_f; |
| |
| vector double vsrc_a_d, vsrc_b_d; |
| vector double vresult_d; |
| vector double expected_vresult_d; |
| |
| /* Vector permx */ |
| vsrc_a_char = (vector signed char) { -1, 3, 5, 7, 9, 11, 13, 15, |
| 17, 19, 21, 23, 25, 27, 29 }; |
| vsrc_b_char = (vector signed char) { 2, -4, 6, 8, 10, 12, 14, 16, |
| 18, 20, 22, 24, 26, 28, 30, 32 }; |
| vsrc_c_uchar = (vector unsigned char) { 0x0, 0x7, 0, 0x5, 0, 0x3, 0, 0x1, |
| 0, 0x2, 0, 0x4, 0, 0x6, 0, 0x0 }; |
| vresult_char = (vector signed char) { 0, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0 }; |
| expected_vresult_char = (vector signed char) { -1, 15, -1, 11, |
| -1, 7, -1, 3, |
| -1, 5, -1, 9, |
| -1, 13, -1, -1 }; |
| |
| vresult_char = vec_permx (vsrc_a_char, vsrc_b_char, vsrc_c_uchar, 0); |
| |
| if (!vec_all_eq (vresult_char, expected_vresult_char)) { |
| #if DEBUG |
| printf("ERROR, vec_permx (vsrc_a_char, vsrc_b_char, vsrc_c_uchar)\n"); |
| for(i = 0; i < 16; i++) |
| printf(" vresult_char[%d] = %d, expected_vresult_char[%d] = %d\n", |
| i, vresult_char[i], i, expected_vresult_char[i]); |
| #else |
| abort(); |
| #endif |
| } |
| |
| vsrc_a_uchar = (vector unsigned char) { 1, 3, 5, 7, 9, 11, 13, 15, |
| 17, 19, 21, 23, 25, 27, 29 }; |
| vsrc_b_uchar = (vector unsigned char) { 2, 4, 6, 8, 10, 12, 14, 16, |
| 18, 20, 22, 24, 26, 28, 30, 32 }; |
| vsrc_c_uchar = (vector unsigned char) { 0x0, 0x7, 0, 0x5, 0, 0x3, 0, 0x1, |
| 0, 0x2, 0, 0x4, 0, 0x6, 0, 0x0 }; |
| vresult_uchar = (vector unsigned char) { 0, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 0, 0, 0, 0 }; |
| expected_vresult_uchar = (vector unsigned char) { 1, 15, 1, 11, |
| 1, 7, 1, 3, |
| 1, 5, 1, 9, |
| 1, 13, 1, 1 }; |
| |
| vresult_uchar = vec_permx (vsrc_a_uchar, vsrc_b_uchar, vsrc_c_uchar, 0); |
| |
| if (!vec_all_eq (vresult_uchar, expected_vresult_uchar)) { |
| #if DEBUG |
| printf("ERROR, vec_permx (vsrc_a_uchar, vsrc_b_uchar, vsrc_c_uchar)\n"); |
| for(i = 0; i < 16; i++) |
| printf(" vresult_uchar[%d] = %d, expected_vresult_uchar[%d] = %d\n", |
| i, vresult_uchar[i], i, expected_vresult_uchar[i]); |
| #else |
| abort(); |
| #endif |
| } |
| |
| vsrc_a_short = (vector signed short int) { 1, -3, 5, 7, 9, 11, 13, 15 }; |
| vsrc_b_short = (vector signed short int) { 2, 4, -6, 8, 10, 12, 14, 16 }; |
| vsrc_c_uchar = (vector unsigned char) { 0x0, 0x1, 0x2, 0x3, |
| 0x4, 0x5, 0x2, 0x3, |
| 0x8, 0x9, 0x2, 0x3, |
| 0x1E, 0x1F, 0x2, 0x3 }; |
| vresult_short = (vector signed short int) { 0, 0, 0, 0, 0, 0, 0, 0 }; |
| expected_vresult_short = (vector signed short int) { 1, -3, 5, -3, |
| 9, -3, 16, -3 }; |
| |
| vresult_short = vec_permx (vsrc_a_short, vsrc_b_short, vsrc_c_uchar, 0); |
| |
| if (!vec_all_eq (vresult_short, expected_vresult_short)) { |
| #if DEBUG |
| printf("ERROR, vec_permx (vsrc_a_short, vsrc_b_short, vsrc_c_uchar)\n"); |
| for(i = 0; i < 8; i++) |
| printf(" vresult_short[%d] = %d, expected_vresult_short[%d] = %d\n", |
| i, vresult_short[i], i, expected_vresult_short[i]); |
| #else |
| abort(); |
| #endif |
| } |
| |
| vsrc_a_ushort = (vector unsigned short int) { 1, 3, 5, 7, 9, 11, 13, 15 }; |
| vsrc_b_ushort = (vector unsigned short int) { 2, 4, 6, 8, 10, 12, 14, 16 }; |
| vsrc_c_uchar = (vector unsigned char) { 0x0, 0x1, 0x2, 0x3, |
| 0x4, 0x5, 0x2, 0x3, |
| 0x8, 0x9, 0x2, 0x3, |
| 0x1E, 0x1F, 0x2, 0x3 }; |
| vresult_ushort = (vector unsigned short int) { 0, 0, 0, 0, 0, 0, 0, 0 }; |
| expected_vresult_ushort = (vector unsigned short int) { 1, 3, 5, 3, |
| 9, 3, 16, 3 }; |
| |
| vresult_ushort = vec_permx (vsrc_a_ushort, vsrc_b_ushort, vsrc_c_uchar, 0); |
| |
| if (!vec_all_eq (vresult_ushort, expected_vresult_ushort)) { |
| #if DEBUG |
| printf("ERROR, vec_permx (vsrc_a_ushort, vsrc_b_ushort, vsrc_c_uchar)\n"); |
| for(i = 0; i < 8; i++) |
| printf(" vresult_ushort[%d] = %d, expected_vresult_ushort[%d] = %d\n", |
| i, vresult_ushort[i], i, expected_vresult_ushort[i]); |
| #else |
| abort(); |
| #endif |
| } |
| |
| vsrc_a_int = (vector signed int) { 1, -3, 5, 7 }; |
| vsrc_b_int = (vector signed int) { 2, 4, -6, 8 }; |
| vsrc_c_uchar = (vector unsigned char) { 0x0, 0x1, 0x2, 0x3, |
| 0x4, 0x5, 0x6, 0x7, |
| 0x18, 0x19, 0x1A, 0x1B, |
| 0x1C, 0x1D, 0x1E, 0x1F }; |
| vresult_int = (vector signed int) { 0, 0, 0, 0 }; |
| expected_vresult_int = (vector signed int) { 1, -3, -6, 8 }; |
| |
| vresult_int = vec_permx (vsrc_a_int, vsrc_b_int, vsrc_c_uchar, 0); |
| |
| if (!vec_all_eq (vresult_int, expected_vresult_int)) { |
| #if DEBUG |
| printf("ERROR, vec_permx (vsrc_a_int, vsrc_b_int, vsrc_c_uchar)\n"); |
| for(i = 0; i < 4; i++) |
| printf(" vresult_int[%d] = %d, expected_vresult_int[%d] = %d\n", |
| i, vresult_int[i], i, expected_vresult_int[i]); |
| #else |
| abort(); |
| #endif |
| } |
| |
| vsrc_a_uint = (vector unsigned int) { 1, 3, 5, 7 }; |
| vsrc_b_uint = (vector unsigned int) { 10, 12, 14, 16 }; |
| vsrc_c_uchar = (vector unsigned char) { 0x0, 0x1, 0x2, 0x3, |
| 0x4, 0x5, 0x6, 0x7, |
| 0x18, 0x19, 0x1A, 0x1B, |
| 0x1C, 0x1D, 0x1E, 0x1F }; |
| vresult_uint = (vector unsigned int) { 0, 0, 0, 0 }; |
| expected_vresult_uint = (vector unsigned int) { 1, 3, 14, 16 }; |
| |
| vresult_uint = vec_permx (vsrc_a_uint, vsrc_b_uint, vsrc_c_uchar, 0); |
| |
| if (!vec_all_eq (vresult_uint, expected_vresult_uint)) { |
| #if DEBUG |
| printf("ERROR, vec_permx (vsrc_a_uint, vsrc_b_uint, vsrc_c_uchar)\n"); |
| for(i = 0; i < 4; i++) |
| printf(" vresult_uint[%d] = %d, expected_vresult_uint[%d] = %d\n", |
| i, vresult_uint[i], i, expected_vresult_uint[i]); |
| #else |
| abort(); |
| #endif |
| } |
| |
| vsrc_a_ll = (vector signed long long int) { 1, -3 }; |
| vsrc_b_ll = (vector signed long long int) { 2, -4 }; |
| vsrc_c_uchar = (vector unsigned char) { 0x0, 0x1, 0x2, 0x3, |
| 0x4, 0x5, 0x6, 0x7, |
| 0x18, 0x19, 0x1A, 0x1B, |
| 0x1C, 0x1D, 0x1E, 0x1F }; |
| vresult_ll = (vector signed long long int) { 0, 0}; |
| expected_vresult_ll = (vector signed long long int) { 1, -4 }; |
| |
| vresult_ll = vec_permx (vsrc_a_ll, vsrc_b_ll, vsrc_c_uchar, 0); |
| |
| if (!vec_all_eq (vresult_ll, expected_vresult_ll)) { |
| #if DEBUG |
| printf("ERROR, vec_permx (vsrc_a_ll, vsrc_b_ll, vsrc_c_uchar)\n"); |
| for(i = 0; i < 2; i++) |
| printf(" vresult_ll[%d] = %lld, expected_vresult_ll[%d] = %lld\n", |
| i, vresult_ll[i], i, expected_vresult_ll[i]); |
| #else |
| abort(); |
| #endif |
| } |
| |
| vsrc_a_ull = (vector unsigned long long int) { 1, 3 }; |
| vsrc_b_ull = (vector unsigned long long int) { 10, 12 }; |
| vsrc_c_uchar = (vector unsigned char) { 0x0, 0x1, 0x2, 0x3, |
| 0x4, 0x5, 0x6, 0x7, |
| 0x18, 0x19, 0x1A, 0x1B, |
| 0x1C, 0x1D, 0x1E, 0x1F }; |
| vresult_ull = (vector unsigned long long int) { 0, 0 }; |
| expected_vresult_ull = (vector unsigned long long int) { 1, 12 }; |
| |
| vresult_ull = vec_permx (vsrc_a_ull, vsrc_b_ull, vsrc_c_uchar, 0); |
| |
| if (!vec_all_eq (vresult_ull, expected_vresult_ull)) { |
| #if DEBUG |
| printf("ERROR, vec_permx (vsrc_a_ull, vsrc_b_ull, vsrc_c_uchar)\n"); |
| for(i = 0; i < 2; i++) |
| printf(" vresult_ull[%d] = %d, expected_vresult_ull[%d] = %d\n", |
| i, vresult_ull[i], i, expected_vresult_ull[i]); |
| #else |
| abort(); |
| #endif |
| } |
| |
| vsrc_a_f = (vector float) { -3.0, 5.0, 7.0, 9.0 }; |
| vsrc_b_f = (vector float) { 2.0, 4.0, 6.0, 8.0 }; |
| vsrc_c_uchar = (vector unsigned char) { 0x0, 0x1, 0x2, 0x3, |
| 0x4, 0x5, 0x6, 0x7, |
| 0x18, 0x19, 0x1A, 0x1B, |
| 0x1C, 0x1D, 0x1E, 0x1F }; |
| vresult_f = (vector float) { 0.0, 0.0, 0.0, 0.0 }; |
| expected_vresult_f = (vector float) { -3.0, 5.0, 6.0, 8.0 }; |
| |
| vresult_f = vec_permx (vsrc_a_f, vsrc_b_f, vsrc_c_uchar, 0); |
| |
| if (!vec_all_eq (vresult_f, expected_vresult_f)) { |
| #if DEBUG |
| printf("ERROR, vec_permx (vsrc_a_f, vsrc_b_f, vsrc_c_uchar)\n"); |
| for(i = 0; i < 4; i++) |
| printf(" vresult_f[%d] = %f, expected_vresult_f[%d] = %f\n", |
| i, vresult_f[i], i, expected_vresult_f[i]); |
| #else |
| abort(); |
| #endif |
| } |
| |
| vsrc_a_d = (vector double) { 1.0, -3.0 }; |
| vsrc_b_d = (vector double) { 2.0, -4.0 }; |
| vsrc_c_uchar = (vector unsigned char) { 0x0, 0x1, 0x2, 0x3, |
| 0x4, 0x5, 0x6, 0x7, |
| 0x1A, 0x1B, 0x1C, 0x1B, |
| 0x1C, 0x1D, 0x1E, 0x1F }; |
| vresult_d = (vector double) { 0.0, 0.0 }; |
| expected_vresult_d = (vector double) { 1.0, -4.0 }; |
| |
| vresult_d = vec_permx (vsrc_a_d, vsrc_b_d, vsrc_c_uchar, 0); |
| |
| if (!vec_all_eq (vresult_d, expected_vresult_d)) { |
| #if DEBUG |
| printf("ERROR, vec_permx (vsrc_a_d, vsrc_b_d, vsrc_c_uchar)\n"); |
| for(i = 0; i < 2; i++) |
| printf(" vresult_d[%d] = %f, expected_vresult_d[%d] = %f\n", |
| i, vresult_d[i], i, expected_vresult_d[i]); |
| #else |
| abort(); |
| #endif |
| } |
| |
| return 0; |
| } |
| |
| /* { dg-final { scan-assembler-times {\mxxpermx\M} 10 } } */ |
| |
| |