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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20001026-1.c] - Rev 774

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

extern void abort (void);
 
typedef struct {
  long r[(19 + sizeof (long))/(sizeof (long))];
} realvaluetype;
 
typedef void *tree;
 
static realvaluetype
real_value_from_int_cst (tree x, tree y)
{
  realvaluetype r;
  int i;
  for (i = 0; i < sizeof(r.r)/sizeof(long); ++i)
    r.r[i] = -1;
  return r;
}
 
struct brfic_args
{
  tree type;
  tree i;
  realvaluetype d;
};
 
static void
build_real_from_int_cst_1 (data)
     void * data;
{
  struct brfic_args *args = (struct brfic_args *) data;
  args->d = real_value_from_int_cst (args->type, args->i);
}
 
int main()
{
  struct brfic_args args;
 
  __builtin_memset (&args, 0, sizeof(args));
  build_real_from_int_cst_1 (&args);
 
  if (args.d.r[0] == 0)
    abort ();
  return 0;
}
 

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.