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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [921123-1.c] - Rev 849

f(short *p)
{
  short x = *p;
  return (--x < 0);
}
 
main()
{
  short x = -10;
  if (!f(&x))
    abort();
  exit(0);
}