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

Subversion Repositories openrisc

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

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


/* PR target/9348 */
 
#define u_l_l unsigned long long
#define l_l long long
 
l_l mpy_res;
 
u_l_l mpy (long a, long b)
{
  return (u_l_l) a * (u_l_l) b;
}
 
int main(void)
{
  mpy_res = mpy(1,-1);
  if (mpy_res != -1LL)
    abort ();
  return 0;
}
 

Line No.	Rev	Author	Line
1	688	jeremybenn	`/* PR target/9348 */`
2
3			`#define u_l_l unsigned long long`
4			`#define l_l long long`
5
6			`l_l mpy_res;`
7
8			`u_l_l mpy (long a, long b)`
9			`{`
10			`return (u_l_l) a * (u_l_l) b;`
11			`}`
12
13			`int main(void)`
14			`{`
15			`mpy_res = mpy(1,-1);`
16			`if (mpy_res != -1LL)`
17			`abort ();`
18			`return 0;`
19			`}`
20

Browse

Tools

Subversion Repositories openrisc

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