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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20071202-1.c] - Blame information for rev 774

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

Line No. Rev Author Line
1 688 jeremybenn
extern void abort (void);
2
struct T { int t; int r[8]; };
3
struct S { int a; int b; int c[6]; struct T d; };
4
 
5
__attribute__((noinline)) void
6
foo (struct S *s)
7
{
8
  *s = (struct S) { s->b, s->a, { 0, 0, 0, 0, 0, 0 }, s->d };
9
}
10
 
11
int
12
main (void)
13
{
14
  struct S s = { 6, 12, { 1, 2, 3, 4, 5, 6 },
15
                 { 7, { 8, 9, 10, 11, 12, 13, 14, 15 } } };
16
  foo (&s);
17
  if (s.a != 12 || s.b != 6
18
      || s.c[0] || s.c[1] || s.c[2] || s.c[3] || s.c[4] || s.c[5])
19
    abort ();
20
  if (s.d.t != 7 || s.d.r[0] != 8 || s.d.r[1] != 9 || s.d.r[2] != 10
21
      || s.d.r[3] != 11 || s.d.r[4] != 12 || s.d.r[5] != 13
22
      || s.d.r[6] != 14 || s.d.r[7] != 15)
23
    abort ();
24
  return 0;
25
}

powered by: WebSVN 2.1.0

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