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 298

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.