std: add input chech for non-repeating positive integers in VECDIM

gnu-octave · Dec 15, 2022 · d856d49 · d856d49
1 parent 9f6f4a3
commit d856d49
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/inst/shadow/std.m b/inst/shadow/std.m
@@ -150,6 +150,9 @@
     if (! (isvector (vecdim) && all (vecdim)) || any (rem (vecdim, 1)))
       error ("std: DIM must be a positive integer scalar or vector");
     endif
+    if (! isequal (vecdim, unique (vecdim, "stable")))
+      error ("std: VECDIM must contain non-repeating positive integers");
+    endif
     if (any (vecdim > ndims (x)))
       error ("std: VECDIM contains invalid dimensions");
     endif
@@ -422,6 +425,8 @@
 %!error <std: DIM must be a positive integer> std (1, [], ones (2,2))
 %!error <std: DIM must be a positive integer> std (1, 0, 1.5)
 %!error <std: DIM must be a positive integer> std (1, [], 0)
+%!error <std: VECDIM must contain non-repeating positive integers> ...
+%! std (repmat ([1:20;6:25], [5 2 6 3]), 0, [1 2 2 2])
 %!error <std: VECDIM contains invalid dimensions> ...
 %! std (repmat ([1:20;6:25], [5 2 6 3]), 0, [1 2 5 6])
 %!error <std: VECDIM contains invalid dimensions> std ([1 2 3], 0, [1 3])