# HG changeset patch
# User Jordi Gutiérrez Hermoso <jordigh@gmail.com>
# Date 1312303227 18000
# Node ID d7a91b3fb7f919bee853ad2f8aefc8716c65e9f8
# Parent  f7a8d1dafda3842df5cea4ae0b1e733983f862e7
Return empty matrix if the argument to orth is empty (bug #33301)

diff --git a/scripts/linear-algebra/orth.m b/scripts/linear-algebra/orth.m
--- a/scripts/linear-algebra/orth.m
+++ b/scripts/linear-algebra/orth.m
@@ -39,6 +39,11 @@
 
   if (nargin == 1 || nargin == 2)
 
+    if (isempty (A))
+      retval = [];
+      return;
+    endif
+
     [U, S, V] = svd (A);
 
     [rows, cols] = size (A);