OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [vect/] [pr42193.c] - Rev 298

Compare with Previous | Blame | View Log

/* { dg-do compile } */
/* { dg-require-effective-target vect_long } */
 
#include <stdarg.h>
 
unsigned long in[6], out[6];
 
void foo ()
{
  unsigned long a, b, c, d, e, f;
 
  a = in[0];
  b = in[1];
  c = in[2];
  d = in[3];
  e = in[4];
  f = in[5];
 
  out[0] = 2 * a + 7 * b + 8  * c + 31 * d + 10 * e + 21 * f;
  out[1] = 3 * a + 6 * b + 12 * c + 13 * d + 15 * e + 28 * f;
  out[2] = 4 * a + 5 * b + 72  * c + 23 * d + 14 * e + 24 * f;
  out[3] = 8 * a + 71 * b + 18  * c + 33 * d + 13 * e + 25 * f;
  out[4] = 12 * a + 16 * b + 19 * c + 41 * d + 22 * e + 26 * f;
  out[5] = 17 * a + 15 * b + 13  * c + 14 * d + 11 * e + 9 * f;
}
 
/* { dg-final { cleanup-tree-dump "vect" } } */
 
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.