[Maxima-commits] CVS: maxima/tests rtest14.mac,1.50,1.51

[Dan G. <dg...@us...>]

Update of /cvsroot/maxima/maxima/tests
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv24938/tests

Modified Files:
	rtest14.mac 
Log Message:
src/simp.lisp:
o simpexpt: uses csign instead of freeof '%i
   fixes [ 789059 ] simpexpt problem: sign called on imag arg

tests/rtest14.mac: add test


Index: rtest14.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtest14.mac,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -d -r1.50 -r1.51
--- rtest14.mac	24 Feb 2008 13:51:05 -0000	1.50
+++ rtest14.mac	8 Mar 2008 00:21:24 -0000	1.51
@@ -1078,3 +1078,6 @@
 erf(1.0);
 0.8427007929497148;
 
+/* [ 789059 ] simpexpt problem: sign called on imag arg */
+(-(-1)^(1/6))^(1/2);
+sqrt(-(-1)^(1/6));