# HG changeset patch
# User jwe
# Date 1198099643 0
# Node ID fcc6d853df9e180356e59cb8c04e3cf89f6c5ca3
# Parent  67aef14de9c200ee9fce6c3dc2194f14eb90fde7
[project @ 2007-12-19 21:27:23 by jwe]

diff -r 67aef14de9c2 -r fcc6d853df9e liboctave/Sparse.cc
--- a/liboctave/Sparse.cc	Wed Dec 19 20:21:11 2007 +0000
+++ b/liboctave/Sparse.cc	Wed Dec 19 21:27:23 2007 +0000
@@ -1973,8 +1973,7 @@
 			      
 				  while (true)
 				    {
-				      if (idx_i.elem (inode.i) >= 0 && 
-					  idx_i.elem (inode.i) < nr)
+				      if (idx_i.elem (inode.i) < nr)
 					new_nzmx ++;
 				      if (inode.next == 0)
 					break;
@@ -2010,8 +2009,7 @@
 			      
 				  while (true)
 				    {
-				      if (idx_i.elem (inode.i) >= 0 && 
-					  idx_i.elem (inode.i) < nr)
+				      if (idx_i.elem (inode.i) < nr)
 					{
 					  X [inode.i] = data (i);
 					  retval.xridx (kk++) = inode.i;
diff -r 67aef14de9c2 -r fcc6d853df9e test/build_sparse_tests.sh
--- a/test/build_sparse_tests.sh	Wed Dec 19 20:21:11 2007 +0000
+++ b/test/build_sparse_tests.sh	Wed Dec 19 21:27:23 2007 +0000
@@ -790,6 +790,13 @@
 # =======================================================
 # sparse selection tests
 
+gen_scalar_select_tests () {
+    cat >>$TESTS <<EOF
+%!assert (sparse(42)([1,1]),sparse([42,42]))
+%!assert (sparse(42*1i)([1,1]),sparse([42,42].*1i))
+EOF
+}
+
 gen_select_tests() {
     cat >>$TESTS <<EOF
 %!test as=sparse(af);
@@ -1226,6 +1233,7 @@
 %! cidx = ceil(n*rand(1,ceil(rand*n))
 EOF
 fi
+gen_scalar_select_tests
 gen_select_tests
 echo '%!test af=real(af);' >> $TESTS
 gen_select_tests