[Maxima-commits] CVS: maxima/tests rtest16.mac,1.84,1.85

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima/tests
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv26188/tests

Modified Files:
	rtest16.mac 
Log Message:
Bug - ID: 2831259
bfloat() underflow bug

src/float.lisp:
o Only check for overflow in FP2FLO.  Underflow is silently converted
  to 0.

tests/rtest16.mac:
o Add test for bug.


Index: rtest16.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtest16.mac,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -d -r1.84 -r1.85
--- rtest16.mac	25 Jul 2009 14:23:13 -0000	1.84
+++ rtest16.mac	7 Aug 2009 13:26:49 -0000	1.85
@@ -931,5 +931,13 @@
 exp(-%i*%pi/4);
 1/sqrt(2)-%i/sqrt(2);
 
+/*
+ * Bug ID: 2831259 - bfloat() underflow bug
+ */
+fpprec:500;
+500;
+float(0b0);
+0.0;
+
 end;
 end$