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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gcc.dg/] [vect/] [vect-reduc-6.c] - Blame information for rev 298

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


/* { dg-require-effective-target vect_float } */
 
#include <stdarg.h>
#include "tree-vect.h"
 
#define N 16
#define DIFF 242
 
__attribute__ ((noinline))
int main1 (float x, float max_result)
{
  int i;
  float b[N] = {0,3,6,9,12,15,18,21,24,27,30,33,36,39,42,45};
  float c[N] = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15};
  float diff = 2;
  float max = x;
  float min = 10;
 
  for (i = 0; i < N; i++) {
    diff += (b[i] - c[i]);
  }
 
  for (i = 0; i < N; i++) {
    max = max < c[i] ? c[i] : max;
  }
 
  for (i = 0; i < N; i++) {
    min = min > c[i] ? c[i] : min;
  }
 
  /* check results:  */
  if (diff != DIFF)
    abort ();
  if (max != max_result)
    abort ();
  if (min != 0)
    abort ();
 
  return 0;
}
 
int main (void)
{
  check_vect ();
 
  main1 (100 ,100);
  main1 (0, 15);
  return 0;
}
 
/* need -ffast-math to vectorizer these loops.  */
/* { dg-final { scan-tree-dump-times "vectorized 0 loops" 1 "vect" } } */
/* { dg-final { cleanup-tree-dump "vect" } } */

Line No.	Rev	Author	Line
1	298	jeremybenn	`/* { dg-require-effective-target vect_float } */`
2
3			`#include <stdarg.h>`
4			`#include "tree-vect.h"`
5
6			`#define N 16`
7			`#define DIFF 242`
8
9			`__attribute__ ((noinline))`
10			`int main1 (float x, float max_result)`
11			`{`
12			`int i;`
13			`float b[N] = {0,3,6,9,12,15,18,21,24,27,30,33,36,39,42,45};`
14			`float c[N] = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15};`
15			`float diff = 2;`
16			`float max = x;`
17			`float min = 10;`
18
19			`for (i = 0; i < N; i++) {`
20			`diff += (b[i] - c[i]);`
21			`}`
22
23			`for (i = 0; i < N; i++) {`
24			`max = max < c[i] ? c[i] : max;`
25			`}`
26
27			`for (i = 0; i < N; i++) {`
28			`min = min > c[i] ? c[i] : min;`
29			`}`
30
31			`/* check results: */`
32			`if (diff != DIFF)`
33			`abort ();`
34			`if (max != max_result)`
35			`abort ();`
36			`if (min != 0)`
37			`abort ();`
38
39			`return 0;`
40			`}`
41
42			`int main (void)`
43			`{`
44			`check_vect ();`
45
46			`main1 (100 ,100);`
47			`main1 (0, 15);`
48			`return 0;`
49			`}`
50
51			`/* need -ffast-math to vectorizer these loops. */`
52			`/* { dg-final { scan-tree-dump-times "vectorized 0 loops" 1 "vect" } } */`
53			`/* { dg-final { cleanup-tree-dump "vect" } } */`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gcc.dg/] [vect/] [vect-reduc-6.c] - Blame information for rev 298