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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [unsorted/] [conv_tst.c] - Rev 747

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

#define ID_1 2400000000.0
#define ID_2 1.7
#define ID_3 -1.7
 
unsigned ui;
int si;
 
conv_i1 ()
{
/*
  ui = (unsigned) ID_1;
  si = (int) ID_1;
*/
}
 
conv_i2 ()
{
  ui = (unsigned) ID_2;
  si = (int) ID_2;
}
 
conv_i3 ()
{
/*  ui = (unsigned) ID_3;*/
  si = (int) ID_3;
}
 
conv_1 (d)
     double d;
{
  ui = (unsigned) d;
/*
  si = (int) d;
*/
}
 
double
foo (u)
     unsigned u;
{
  return u;
}
 
main ()
{
  printf ("%lf\n", foo (2400000000));
 
  conv_i1 ();
  printf ("%lf, %u, %d\n", ID_1, ui, si);
 
  conv_i2 ();
  printf ("%lf, %u, %d\n", ID_2, ui, si);
 
  conv_i3 ();
  printf ("%lf, %u, %d\n", ID_3, ui, si);
 
  conv_1 (ID_1);
  printf ("%lf, %u, %d\n", ID_1, ui, si);
 
  conv_1 (ID_2);
  printf ("%lf, %u, %d\n", ID_2, ui, si);
 
  conv_1 (ID_3);
  printf ("%lf, %u, %d\n", ID_3, ui, si);
 
}
 

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.