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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [20040311-2.c] - Rev 801

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

/* PR target/14533 */
/* { dg-do compile { target fpic } } */
/* { dg-options "-O2 -fpic" } */
 
void bar (char *, int);
 
extern char b[];
extern int d, e;
struct S
{
  struct S *m;
  int n;
} **g;
 
void
foo (int x, char *y)
{
  struct S *h;
  int k = 1, l;
 
again:
  for (h = *g; h != (struct S *) g; h = h->m)
    {
      if (k == 0 && h->n & 0x100000);
      l = y - b;
      if (e)
        bar (b, l);
      if (d)
        bar (b, l);
    }
  if (k)
    {
      k = 0;
      goto again;
    }
}
 

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.