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

Subversion Repositories openrisc

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

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

/* Origin: PR target/6981 from Mattias Engdegaard <mattias@virtutech.se>.  */
 
void exit (int);
void abort (void);
 
unsigned long long *cp, m;
 
void foo (void)
{
}
 
void bar (unsigned rop, unsigned long long *r)
{
  unsigned rs1, rs2, rd;
 
top:
  rs2 = (rop >> 23) & 0x1ff;
  rs1 = (rop >> 9) & 0x1ff;
  rd = rop & 0x1ff;
 
  *cp = 1;
  m = r[rs1] + r[rs2];
  *cp = 2;
  foo();
  if (!rd)
    goto top;
  r[rd] = 1;
}
 
int main(void)
{
  static unsigned long long r[64];
  unsigned long long cr;
  cp = &cr;
 
  r[4] = 47;
  r[8] = 11;
  bar((8 << 23) | (4 << 9) | 15, r);
 
  if (m != 47 + 11)
    abort ();
  exit (0);
}
 

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.