X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=optimization%2Ftest_functions%2Fwood_gradient1.m;h=eabccc94175b38fc9cb6c50757f78e4b66749122;hp=0191f54bdf7b0c7461ae7238e14e9ae92576ec8e;hb=8ed65c4235284698686734be82a9f073b90694d4;hpb=87d434fa93b3e52e8a5a0a9d99ae43492c35e1be

diff --git a/optimization/test_functions/wood_gradient1.m b/optimization/test_functions/wood_gradient1.m
index 0191f54..eabccc9 100644
--- a/optimization/test_functions/wood_gradient1.m
+++ b/optimization/test_functions/wood_gradient1.m
@@ -4,5 +4,9 @@ function g = wood_gradient1(x)
   ## 4-vector instead of four distinct arguments. See wood_gradient.m
   ## for more information.
   ##
-  g = wood_gradient(x(1), x(2), x(3), x(4));
+  if (length(x) == 4)
+    g = wood_gradient(x(1), x(2), x(3), x(4));
+  else
+    g = NA;
+  end
 end