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

Subversion Repositories openrisc

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

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


/* { dg-require-effective-target vect_float } */
 
#include "tree-vect.h"
 
float x[1024];
float
test (void)
{
  int i;
  float gosa = 0.0;
  for (i = 0; i < 1024; ++i)
    {
      float tem = x[i];
      gosa += tem * tem;
    }
  return gosa;
}
 
int main (void)
{
  check_vect ();
 
  if (test () != 0.0)
    abort ();
 
  return 0;
}
 
/* { dg-final { scan-tree-dump "vectorized 1 loops" "vect" } } */
/* { dg-final { cleanup-tree-dump "vect" } } */

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-require-effective-target vect_float } */`
2
3			`#include "tree-vect.h"`
4
5			`float x[1024];`
6			`float`
7			`test (void)`
8			`{`
9			`int i;`
10			`float gosa = 0.0;`
11			`for (i = 0; i < 1024; ++i)`
12			`{`
13			`float tem = x[i];`
14			`gosa += tem * tem;`
15			`}`
16			`return gosa;`
17			`}`
18
19			`int main (void)`
20			`{`
21			`check_vect ();`
22
23			`if (test () != 0.0)`
24			`abort ();`
25
26			`return 0;`
27			`}`
28
29			`/* { dg-final { scan-tree-dump "vectorized 1 loops" "vect" } } */`
30			`/* { dg-final { cleanup-tree-dump "vect" } } */`

Browse

Tools

Subversion Repositories openrisc

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