Subversion Repositories openrisc

/* { dg-do compile { target powerpc*-*-* } } */

/* { dg-require-effective-target powerpc_altivec_ok } */

/* { dg-options "-maltivec" } */

/* Basic test for the new VMX intrinsics and error messages.  */

#include <altivec.h>

int main(int argc, char **argv)

{

vector float t;

    vec_promote();                      /* { dg-error "vec_promote only accepts 2" } */

    vec_promote(1.0f);                  /* { dg-error "vec_promote only accepts 2" } */

    vec_promote(1.0f, 2, 3);            /* { dg-error "vec_promote only accepts 2" } */

    vec_extract ();                     /* { dg-error "vec_extract only accepts 2" } */

    vec_extract (t);                    /* { dg-error "vec_extract only accepts 2" } */

    vec_extract (t, 2);

    vec_extract (t, 2, 5, 6);           /* { dg-error "vec_extract only accepts 2" } */

    vec_splats ();                      /* { dg-error "vec_splats only accepts 1" } */

    vec_splats (t, 3);                  /* { dg-error "vec_splats only accepts 1" } */

    vec_insert ();                      /* { dg-error "vec_insert only accepts 3" } */

    vec_insert (t);                     /* { dg-error "vec_insert only accepts 3" } */

    vec_insert (t, 3);                  /* { dg-error "vec_insert only accepts 3" } */

    vec_insert (t, 3, 2, 4, 6, 6);      /* { dg-error "vec_insert only accepts 3" } */

    return 0;

}