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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [libgloss/] [testsuite/] [libgloss.all/] [math.c] - Rev 1765

Compare with Previous | Blame | View Log

/* Oki bug report [OKI004](gcc005)
 
          The following computation is no work.
        -1 / 1 => 1 (correct -1)
        -1 % 2 => 1 (correct -1)
 */
 
#include <stdio.h>
 
main ()
{
        long l1, l2, l6;
        auto long l3;
        long oza1, oza2, oza;
 
        l1 = 1;
        l2 = 2;
        l3 = -1;
        l6 = 6;
 
        /*** test 1 ***/
        oza = ((l3 / ((l1)--)) | (l6 <= (l3 % l2)));
	printf ("test 1 has a result of %d.\n", oza);
	if (oza != -1)
	  fail ("divide test [OKI004]");
	else
	  pass ("divide test [OKI004]");
 
        l1 = 1;
        /*** test 2 ***/
        oza1 = (l3 / ((l1)--));
        oza2 = (l6 <= (l3 % l2));
        oza = oza1 | oza2;
 
	printf ("test 2 has a result of %d.\n", oza);
	if (oza != -1)
	  fail ("modulos test [OKI004]");
	else
	  pass ("modulos test [OKI004]");
	fflush (stdout);
 
	test_1();
}
 
/*
      32760 / (1) = 32760
      32760 / (-1) = 32760    -------> ERROR, same as you said.
      32760 / (2) = 16380
      32760 / (-2) = -2147467268 ----> ERROR
      32760 / (3) = 10920
      32760 / (-3) = -1431644845 ----> ERROR
      32760 / (4) = 8190
      32760 / (-4) = -8190
 */
test_1()
{
  int value, i, j;
 
  i = 32760;
  j = 1;
  value = i / (j);
  printf ("%d / (%d) =  %d\n", i, j, value);
  j = -1;
  value = i / (j);
  printf ("%d / (%d) =  %d\n", i, j, value);
 
  j = 2;
  value = i / (j);
  printf ("%d / (%d) =  %d\n", i, j, value);
  j = -2;
  value = i / (j);
  printf ("%d / (%d) =  %d\n", i, j, value);
 
  j = 3;
  value = i / (j);
  printf ("%d / (%d) =  %d\n", i, j, value);
  j = -3;
  value = i / (j);
  printf ("%d / (%d) =  %d\n", i, j, value);
 
  j = 4;
  value = i / (j);
  printf ("%d / (%d) =  %d\n", i, j, value);
  j = -4;
  value = i / (j);
  printf ("%d / (%d) =  %d\n", i, j, value);
}
 
 

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.