# HG changeset patch
# User Rik <rik@octave.org>
# Date 1562804739 25200
# Node ID c80681b4948d0992016c2a961e2771389a994b5b
# Parent  c90648dde5cf10269e2e2a77de67e4cef14979f9
unique.m: Fix special case of "legacy" and "rows" flag both present.

* unique.m: Initialize variable isrowvec in all cases.  Add BIST case to check
special case.

diff -r c90648dde5cf -r c80681b4948d scripts/set/unique.m
--- a/scripts/set/unique.m	Wed Jul 10 14:08:48 2019 -0700
+++ b/scripts/set/unique.m	Wed Jul 10 17:25:39 2019 -0700
@@ -105,6 +105,7 @@
 
   if (optrows)
     n = rows (x);
+    isrowvec = false;
   else
     n = numel (x);
     isrowvec = isrow (x);
@@ -233,6 +234,13 @@
 %! assert (i, [2,3,6,7]);
 %! assert (j, [1,1,2,3,3,3,4]);
 
+%!test
+%! A = [1,2,3; 1,2,3];
+%! [a,i,j] = unique (A, "rows", "legacy");
+%! assert (a, [1,2,3]);
+%! assert (A(i,:), a);
+%! assert (a(j,:), A);
+
 ## Test input validation
 %!error unique ()
 %!error <X must be an array or cell array of strings> unique ({1})