[Maxima-commits] CVS: maxima/tests rtest16.mac,1.57,1.58

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

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

Modified Files:
	rtest16.mac 
Log Message:
Bug 2180110 : GCL do not signal an overflow converting bigfloat to
float

src/float.lisp:
o In FP2FLO, explicitly check for overflow by testing the exponent
  instead of depending on SCALE-FLOAT to signal an overflow.

tests/rtest16.mac:
o Add tests for this.


Index: rtest16.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtest16.mac,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -d -r1.57 -r1.58
--- rtest16.mac	16 Nov 2008 16:30:26 -0000	1.57
+++ rtest16.mac	1 Dec 2008 15:13:29 -0000	1.58
@@ -558,5 +558,14 @@
 jacobi_dn(elliptic_kc(m)*t,m);
 jacobi_dn(elliptic_kc(m)*t,m);
 
+/*
+ * Bug [ 2180110 ] GCL do not signal an overflow converting bigfloat to float
+ */
+errcatch(float(2b400));
+[];
+
+errcatch(float(bfloat(2^1024)));
+[];
+
 end;
 end$