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

Subversion Repositories openrisc

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

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

/* { dg-do compile } */
 
struct S { int s; int u; };
extern int bar (void);
extern struct S *baz (void);
 
void
foo (int x, struct S *y, char z, int *v, struct S *s)
{
  int c, d;
  if (x & 2)
    d = 1;
  else
    {
      d = (x & 1) ? 11 : 0;
      while ((c = (s->s != (s->u & 1) ? s->s : bar ())) != '\0');
      c = (s->s != '\\' && (s->u & 4) ? s->s : bar ());
      if (c == '<')
        goto lab;
    }
  while ((c = ((s->u & 1) ? s->s : bar ())) != 0
         && ((d != 11 && d != 17) || (v[c] & 1) == 0))
    {
    lab:;
      switch (d)
        {
        case 14:
          if (c == '}')
            y = baz ();
          d = y->s = z == '<' ? 17 : 11;
        }
    }
}
 
 

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.