Fix test of gsort function 13/8713/3
Adeline CARNIS [Thu, 16 Aug 2012 09:33:23 +0000 (11:33 +0200)]
test_run("statistics","bug_8101")

Change-Id: I3ed7c227826320019e564b95a8de7bae76712591

scilab/modules/elementary_functions/macros/%sp_gsort.sci

index 29c7f50..d132854 100644 (file)
@@ -41,13 +41,14 @@ function [A, k] = %sp_gsort(A, optsort, directionsort)
         error(999,msprintf(_("%s: Wrong size for input argument #%d: sparse vectors expected.\n"), 'gsort', 1));\r
     end\r
 \r
+\r
     if mn(1) == 1 then\r
         // if A is a row vector and optsort = 'r', the result is the \r
         // first input argument\r
-        if strcmp(optsort, 'r') == 0 |strcmp(optsort, 'lr') == 0 then\r
+        if strcmp(optsort, 'r') == 0 |strcmp(optsort, 'lr') == 0 | v == [] then\r
             A = A;\r
             if lhs == 2 then\r
-                if strcmp(optsort, 'lr') == 0 then\r
+                if strcmp(optsort, 'lr') == 0 | ij == [] then\r
                     k = 1;\r
                 else\r
                     k = ij(:,1);\r
@@ -101,10 +102,10 @@ function [A, k] = %sp_gsort(A, optsort, directionsort)
     if mn(2) == 1 then\r
         // if A is a column vector and optsort = 'c', the result is the \r
         // first input argument\r
-        if strcmp(optsort, 'c') == 0 | strcmp(optsort, 'lc') == 0 then\r
+        if strcmp(optsort, 'c') == 0 | strcmp(optsort, 'lc') == 0 | v == [] then\r
             A = A;\r
             if lhs == 2 then\r
-                if strcmp(optsort, 'lc') == 0 then\r
+                if strcmp(optsort, 'lc') == 0 | ij == [] then\r
                     k = 1;\r
                 else\r
                     k = ij(:,2);\r