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

Subversion Repositories openrisc

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

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


long double
ll_to_ld (long long n)
{
  return n;
}
 
long long
ld_to_ll (long double n)
{
  return n;
}
 
main ()
{
  long long n;
 
  if (ll_to_ld (10LL) != 10.0)
    abort ();
 
  if (ld_to_ll (10.0) != 10)
    abort ();
 
  exit (0);
}

Line No.	Rev	Author	Line
1	688	jeremybenn	`long double`
2			`ll_to_ld (long long n)`
3			`{`
4			`return n;`
5			`}`
6
7			`long long`
8			`ld_to_ll (long double n)`
9			`{`
10			`return n;`
11			`}`
12
13			`main ()`
14			`{`
15			`long long n;`
16
17			`if (ll_to_ld (10LL) != 10.0)`
18			`abort ();`
19
20			`if (ld_to_ll (10.0) != 10)`
21			`abort ();`
22
23			`exit (0);`
24			`}`

Browse

Tools

Subversion Repositories openrisc

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