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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [20040311-2.c] - Blame information for rev 307

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

Line No. Rev Author Line
1 298 jeremybenn 
/* PR target/14533 */
2 
/* { dg-do compile { target fpic } } */
3 
/* { dg-options "-O2 -fpic" } */
4 
 
5 
void bar (char *, int);
6 
 
7 
extern char b[];
8 
extern int d, e;
9 
struct S
10 
{
11 
  struct S *m;
12 
  int n;
13 
} **g;
14 
 
15 
void
16 
foo (int x, char *y)
17 
{
18 
  struct S *h;
19 
  int k = 1, l;
20 
 
21 
again:
22 
  for (h = *g; h != (struct S *) g; h = h->m)
23 
    {
24 
      if (k == 0 && h->n & 0x100000);
25 
      l = y - b;
26 
      if (e)
27 
        bar (b, l);
28 
      if (d)
29 
        bar (b, l);
30 
    }
31 
  if (k)
32 
    {
33 
      k = 0;
34 
      goto again;
35 
    }
36 
}

powered by: WebSVN 2.1.0

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