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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20040831-1.c] - Blame information for rev 801

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


/* This testcase was being miscompiled, because operand_equal_p
   returned that (unsigned long) d and (long) d are equal.  */
extern void abort (void);
extern void exit (int);
 
int
main (void)
{
  double d = -12.0;
  long l = (d > 10000) ? (unsigned long) d : (long) d;
  if (l != -12)
    abort ();
  exit (0);
}

Line No.	Rev	Author	Line
1	688	jeremybenn	`/* This testcase was being miscompiled, because operand_equal_p`
2			`returned that (unsigned long) d and (long) d are equal. */`
3			`extern void abort (void);`
4			`extern void exit (int);`
5
6			`int`
7			`main (void)`
8			`{`
9			`double d = -12.0;`
10			`long l = (d > 10000) ? (unsigned long) d : (long) d;`
11			`if (l != -12)`
12			`abort ();`
13			`exit (0);`
14			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20040831-1.c] - Blame information for rev 801