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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.target/] [i386/] [387-10.c] - Blame information for rev 825

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


/* PR tree-optimization/24964 */
/* { dg-do compile { target i?86-*-* x86_64-*-* } } */
/* { dg-options "-O2 -mfpmath=387" } */
 
double fabs(double x);
 
double test1(double x)
{
  double t = fabs(x);
  return t*t;
}
 
double test2(double x)
{
  double t = -x;
  return t*t;
}
 
/* { dg-final { scan-assembler-not "fchs" } } */
/* { dg-final { scan-assembler-not "fabs" } } */

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* PR tree-optimization/24964 */`
2			`/* { dg-do compile { target i?86-- x86_64-- } } */`
3			`/* { dg-options "-O2 -mfpmath=387" } */`
4
5			`double fabs(double x);`
6
7			`double test1(double x)`
8			`{`
9			`double t = fabs(x);`
10			`return t*t;`
11			`}`
12
13			`double test2(double x)`
14			`{`
15			`double t = -x;`
16			`return t*t;`
17			`}`
18
19			`/* { dg-final { scan-assembler-not "fchs" } } */`
20			`/* { dg-final { scan-assembler-not "fabs" } } */`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.target/] [i386/] [387-10.c] - Blame information for rev 825