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

Subversion Repositories openrisc

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

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


/* This used to fail on h8300.  */
 
extern void abort (void);
extern void exit (int);
 
unsigned long
foo (unsigned long n)
{
  return (~n >> 3) & 1;
}
 
int
main ()
{
  if (foo (1 << 3) != 0)
    abort ();
 
  if (foo (0) != 1)
    abort ();
 
  exit (0);
}

Line No.	Rev	Author	Line
1	688	jeremybenn	`/* This used to fail on h8300. */`
2
3			`extern void abort (void);`
4			`extern void exit (int);`
5
6			`unsigned long`
7			`foo (unsigned long n)`
8			`{`
9			`return (~n >> 3) & 1;`
10			`}`
11
12			`int`
13			`main ()`
14			`{`
15			`if (foo (1 << 3) != 0)`
16			`abort ();`
17
18			`if (foo (0) != 1)`
19			`abort ();`
20
21			`exit (0);`
22			`}`

Browse

Tools

Subversion Repositories openrisc

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