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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compat/] [strct-layout.c] - Rev 714

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

typedef struct
{
  char a;
  int b;
  char c;
  short d;
  double e;
  char f;
} T;
 
#if COMPILER != 1
f (T *x)
{
  x[0].a = 'a';
  x[0].b = 47114711;
  x[0].c = 'c';
  x[0].d = 1234;
  x[0].e = 3.141592897932;
  x[0].f = '*';
 
  x[1].a = 'A';
  x[1].b = 71417141;
  x[1].c = 'C';
  x[1].d = 4321;
  x[1].e = 2.718281828459;
  x[1].f = '?';
}
#endif
 
#if COMPILER != 2
g (T *x)
{
  if (x[0].a != 'a')
    abort ();
  if (x[0].b != 47114711)
    abort ();
  if (x[0].c != 'c')
    abort ();
  if (x[0].d != 1234)
    abort ();
  if (x[0].e != 3.141592897932)
    abort ();
  if (x[0].f != '*')
    abort ();
 
  if (x[1].a != 'A')
    abort ();
  if (x[1].b != 71417141)
    abort ();
  if (x[1].c != 'C')
    abort ();
  if (x[1].d != 4321)
    abort ();
  if (x[1].e != 2.718281828459)
    abort ();
  if (x[1].f != '?')
    abort ();
}
#endif
 
#if COMPILER != 2
main ()
{
  T x[2];
  f (x);
  g (x);
  exit (0);
}
#endif
 

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.