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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [pr28778.c] - Blame information for rev 711

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

Line No. Rev Author Line
1 688 jeremybenn
extern void abort(void);
2
typedef long GLint;
3
void aglChoosePixelFormat (const GLint *);
4
 
5
void
6
find (const int *alistp)
7
{
8
  const int *blist;
9
  int list[32];
10
  if (alistp)
11
    blist = alistp;
12
  else
13
    {
14
      list[3] = 42;
15
      blist = list;
16
    }
17
  aglChoosePixelFormat ((GLint *) blist);
18
}
19
 
20
void
21
aglChoosePixelFormat (const GLint * a)
22
{
23
  int *b = (int *) a;
24
  if (b[3] != 42)
25
    abort ();
26
}
27
 
28
int
29
main (void)
30
{
31
  find (0);
32
  return 0;
33
}

powered by: WebSVN 2.1.0

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