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-pow-2.c] - Blame information for rev 749

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


/* { dg-do compile } */
 
typedef double d_type;
struct
{
  d_type x;
  d_type y;
} S[100];
 
#define N 16
d_type foo (d_type t);
 
d_type
main1 ()
{
  int i;
  d_type t;
 
  for (i = 0; i < N; i++)
    {
      t = (d_type) i / (d_type) 10;
      S[5].x = t * t;
    }
  return S[5].x;
}
 
int
main (void)
{
  d_type tmp = main1 ();
}
/* { dg-final { cleanup-tree-dump "vect" } } */
 

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-do compile } */`
2
3			`typedef double d_type;`
4			`struct`
5			`{`
6			`d_type x;`
7			`d_type y;`
8			`} S[100];`
9
10			`#define N 16`
11			`d_type foo (d_type t);`
12
13			`d_type`
14			`main1 ()`
15			`{`
16			`int i;`
17			`d_type t;`
18
19			`for (i = 0; i < N; i++)`
20			`{`
21			`t = (d_type) i / (d_type) 10;`
22			`S[5].x = t * t;`
23			`}`
24			`return S[5].x;`
25			`}`
26
27			`int`
28			`main (void)`
29			`{`
30			`d_type tmp = main1 ();`
31			`}`
32			`/* { dg-final { cleanup-tree-dump "vect" } } */`
33

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [vect/] [fast-math-vect-pow-2.c] - Blame information for rev 749