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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [990127-2.c] - Blame information for rev 297

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 297 jeremybenn
void
2
fpEq (double x, double y)
3
{
4
  if (x != y)
5
    abort ();
6
}
7
 
8
void
9
fpTest (double x, double y)
10
{
11
  double result1 = (35.7 * 100.0) / 45.0;
12
  double result2 = (x * 100.0) / y;
13
  fpEq (result1, result2);
14
}
15
 
16
main ()
17
{
18
  fpTest (35.7, 45.0);
19
  exit (0);
20
}

powered by: WebSVN 2.1.0

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