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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [tree-ssa/] [pr20139.c] - Blame information for rev 853

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


/* PR tree-optimization/20139
   This testcase is derived from gcc.dg/20020720-1.c.  Here we check
   that the optimization happens at tree level.  */
 
/* { dg-do compile } */
/* { dg-options "-O2 -fdump-tree-final_cleanup" } */
 
extern double fabs (double);
extern void link_error (void);
 
void
foo (double x)
{
  double p, q;
 
  p = fabs (x);
  q = 0.0;
  if (p < q)
    link_error ();
}
 
/* { dg-final { scan-tree-dump-times "link_error" 0 "final_cleanup" } } */
/* { dg-final { cleanup-tree-dump "final_cleanup" } } */

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* PR tree-optimization/20139`
2			`This testcase is derived from gcc.dg/20020720-1.c. Here we check`
3			`that the optimization happens at tree level. */`
4
5			`/* { dg-do compile } */`
6			`/* { dg-options "-O2 -fdump-tree-final_cleanup" } */`
7
8			`extern double fabs (double);`
9			`extern void link_error (void);`
10
11			`void`
12			`foo (double x)`
13			`{`
14			`double p, q;`
15
16			`p = fabs (x);`
17			`q = 0.0;`
18			`if (p < q)`
19			`link_error ();`
20			`}`
21
22			`/* { dg-final { scan-tree-dump-times "link_error" 0 "final_cleanup" } } */`
23			`/* { dg-final { cleanup-tree-dump "final_cleanup" } } */`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [tree-ssa/] [pr20139.c] - Blame information for rev 853