URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [vect/] [vect-119.c] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


/* { dg-do compile } */
 
#define OUTER 32
#define INNER 40
 
static unsigned int
bar (const unsigned int x[INNER][2], unsigned int sum)
{
  int i;
 
  for (i = 0; i < INNER; i++)
    sum += x[i][0] * x[i][0] + x[i][1] * x[i][1];
  return sum;
}
 
unsigned int foo (const unsigned int x[OUTER][INNER][2])
{
  int i;
  unsigned int sum;
 
  sum = 0.0f;
  for (i = 0; i < OUTER; i++)
    sum = bar (x[i], sum);
  return sum;
}
 
/* { dg-final { scan-tree-dump-times "Detected interleaving of size 2" 1 "vect" } } */
/* { dg-final { cleanup-tree-dump "vect" } } */

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-do compile } */`
2
3			`#define OUTER 32`
4			`#define INNER 40`
5
6			`static unsigned int`
7			`bar (const unsigned int x[INNER][2], unsigned int sum)`
8			`{`
9			`int i;`
10
11			`for (i = 0; i < INNER; i++)`
12			`sum += x[i][0] * x[i][0] + x[i][1] * x[i][1];`
13			`return sum;`
14			`}`
15
16			`unsigned int foo (const unsigned int x[OUTER][INNER][2])`
17			`{`
18			`int i;`
19			`unsigned int sum;`
20
21			`sum = 0.0f;`
22			`for (i = 0; i < OUTER; i++)`
23			`sum = bar (x[i], sum);`
24			`return sum;`
25			`}`
26
27			`/* { dg-final { scan-tree-dump-times "Detected interleaving of size 2" 1 "vect" } } */`
28			`/* { dg-final { cleanup-tree-dump "vect" } } */`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [vect/] [vect-119.c] - Blame information for rev 801