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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [newlib-1.17.0/] [libgloss/] [testsuite/] [libgloss.all/] [misc.c] - Rev 840

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

/*
 * this file contains misc bug reports from WinBond.
 */
#include <stdio.h>
#include <math.h>
 
#if unix
#define pass(x)	printf("PASS: %s\n", x);
#define fail(x)	printf("FAIL: %s\n", x);
#endif
 
/*
    The compare operation is error. Because the constant value 1.0 is
    not correct. It seems compare with 0 in this statement.
 
HP-UX native:
   dist is 0.301
   PASS: float compare
   *cp = be9a1cac, *cp1 = be9a1cac
   PASS: float multiple 1
   PASS: float multiple 2
   32760 / (-2) = -16380
   PASS: float divide 1
   32760 / (-1) = -32760
   PASS: float divide 1
    These test only pass if the output matches:
    Correct output is
    1.0 = 1.000000E+00, 0.3010 = 3.000000E-01, -1.0 = -1.000000E+0
    1.0 = 1.000000E+00, 0.3010 = 3.010000E-01, -1.0 = -1.000000E+00
    These test only pass if the outut matches:
    Correct output is
    ans = 1.000000E+00, ans1 = 3.010000E-01, ans2 = -1.000000E+00
    ans = 1.000000E+00, ans1 = 3.010000E-01, ans2 = -1.000000E+00
 
 
Test run on Oki:
 
    dist is 0
    PASS: float compare
    *cp = be9a1cac, *cp1 = be9a1cac
    PASS: float multiple 1
    PASS: float multiple 2
    32760 / (-2) = -2147467268
    PASS: float divide 1
    32760 / (-1) = 32760
    PASS: float divide 1
    These test only pass if the output matches:
    Correct output is
    1.0 = 1.000000E+00, 0.3010 = 3.000000E-01, -1.0 = -1.000000E+0
    1.0 = 1.586860E-318, 0.3010 = -1.009091E-303, -1.0 = 5.290504E-315
    These test only pass if the outut matches:
    Correct output is
    ans = 1.000000E+00, ans1 = 3.010000E-01, ans2 = -1.000000E+00
    ans = 4.940656E-324, ans1 = -5.299809E-315, ans2 = 5.290504E-315
 
 */
 
main()
{
  float dist = 0.3010;
 
  printf ("dist is %G\n", dist);
  if ( dist < 1.0 ) {
    pass ("float compare");
  } else {
    fail ("float compare");
  }
 
  test_1();
  test_2();
  test_3();
  test_4();
 
  fflush (stdout);
}
 
/*
 *    *cp = be9a1cac, *cp1 = 00000000
 */
test_1()
{
  float i, ans, ans1;
  unsigned int *cp=&ans, *cp1=&ans1;
 
  i = 0.3010;
  ans = (-1.0) * 0.3010 * 1.0;        /* OK */
  ans1 = (-1.0) * i * 1.0;            /* Disaster */
  printf ("*cp = %08x, *cp1 = %08x\n", *cp, *cp1);
 
  if (*cp != 0xbe9a1cac) {
    fail ("float multiple 1");
  } else {
    pass ("float multiple 1");
  }
 
  if (*cp1 != 0xbe9a1cac) {
    fail ("float multiple 2");
  } else {
    pass ("float multiple 2");
  }
}
 
/*
    Positive integer divide Negative integer may get interesting result.
    For examples:
    EX1: 32760 / (-2) = -2147467268
 */
test_2()
{
  int value, i, j;
 
  i = 32760;
  j = -2;
  value = i / (j);
  printf ("%d / (%d) = %d\n", i, j, value);
 
  if (value != -16380) {
    fail ("float divide 1");
  } else {
    pass ("float divide 1");
  }
}
 
/*
     EX2: 32760 / (-1) = 32760
 */
test_3()
{
  int value, i, j;
 
  i = 32760;
  j = -1;
  value = i / (j);
  printf ("%d / (%d) = %d\n", i, j, value);
 
  if (value != -32760) {
    fail ("float divide 1");
  } else {
    pass ("float divide 1");
  }
}
 
/*
    The data output format %e, %E, %g, %G in printf() can not work.
    Please test the following example:
 
    1.0 = 1.000000E+00, 0.3010 = 3.009999E-01, -1.0 = -1.000000E+00
    ans = 4.940656E-324, ans1 = -5.299809E-315, ans2 = 5.290504E-315
 */
test_4()
{
  float ans, ans1, ans2;
 
  ans = 1.0;
  ans1 = 0.3010;
  ans2 = -1.0;
 
  printf ("These test only pass if the output matches:\nCorrect output is\n1.0 = 1.000000E+00, 0.3010 = 3.000000E-01, -1.0 = -1.000000E+0\n");
  printf ("1.0 = %E, 0.3010 = %E, -1.0 = %E\n", 1.0, 0.3010, -1.0);
  printf ("These test only pass if the outut matches:\nCorrect output is\nans = 1.000000E+00, ans1 = 3.010000E-01, ans2 = -1.000000E+00\n");
  printf ("ans = %E, ans1 = %E, ans2 = %E\n", ans, ans1, ans2);
}
 
 
 
 
 
 

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.