Subversion Repositories openrisc

/* { dg-do run } */
 
#define vector(elcount, type)  \
__attribute__((vector_size((elcount)*sizeof(type)))) type
 
#define vidx(type, vec, idx) (*((type *) &(vec) + idx))
#define schar signed char
#define uchar unsigned char
 
#define ch14 1,2,3,4
#define ch1  1,1,1,1
#define chm1 -1,-1,-1,-1
 
int main (int argc, char *argv[]) {
    vector(16, uchar) vuchar  = { ch14, ch14, ch14, ch14};
    vector(16, schar) vchar0  = { ch1, ch1, ch1, ch1};
    vector(16, schar) vchar1  = { chm1, chm1, chm1, chm1};
 
    vector(16, schar) i1, i2, i3;
    vector(16, uchar) u1, u2, u3;
 
    i1 = vchar1<< vchar0;
 
    if (vidx(schar, i1, 0) != ((schar)-1 << (schar)1))
        __builtin_abort ();
    if (vidx(schar, i1, 1) != ((schar)-1 << (schar)1))
        __builtin_abort ();
    if (vidx(schar, i1, 2) != ((schar)-1 << (schar)1))
        __builtin_abort ();
    if (vidx(schar, i1, 3) != ((schar)-1 << (schar)1))
        __builtin_abort ();
    u1 = vuchar << vchar0;
 
    if (vidx(uchar, u1, 0) != ((uchar)1  << (schar)1))
        __builtin_abort ();
    if (vidx(uchar, u1, 1) != ((uchar)2  << (schar)1))
        __builtin_abort ();
    if (vidx(uchar, u1, 2) != ((uchar)3  << (schar)1))
        __builtin_abort ();
    if (vidx(uchar, u1, 3) != ((uchar)4  << (schar)1))
        __builtin_abort ();
 
 
    i2 = vchar1 >> vuchar;
 
    if (vidx(schar, i2, 0) != ((schar)-1  >> (uchar)1))
        __builtin_abort ();
    if (vidx(schar, i2, 1) != ((schar)-1  >> (uchar)2))
        __builtin_abort ();
    if (vidx(schar, i2, 2) != ((schar)-1  >> (uchar)3))
        __builtin_abort ();
    if (vidx(schar, i2, 3) != ((schar)-1  >> (uchar)4))
        __builtin_abort ();
 
    vchar1 >>= vuchar;
    vuchar <<= vchar0;
    vuchar <<= vchar1;
 
    return 0;
}