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

Subversion Repositories openrisc

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

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


static inline
p (int *p)
{
  return !((long) p & 1);
}
 
int
f (int *q)
{
  if (p (q) && *q)
    return 1;
  return 0;
}
 
main ()
{
  if (f ((int*) 0xffffffff) != 0)
    abort ();
  exit (0);
}

Line No.	Rev	Author	Line
1	688	jeremybenn	`static inline`
2			`p (int *p)`
3			`{`
4			`return !((long) p & 1);`
5			`}`
6
7			`int`
8			`f (int *q)`
9			`{`
10			`if (p (q) && *q)`
11			`return 1;`
12			`return 0;`
13			`}`
14
15			`main ()`
16			`{`
17			`if (f ((int*) 0xffffffff) != 0)`
18			`abort ();`
19			`exit (0);`
20			`}`

Browse

Tools

Subversion Repositories openrisc

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