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

diff --git a/optimization/test_functions/wood1.m b/optimization/test_functions/wood1.m
index 6c3f319..c34de26 100644
--- a/optimization/test_functions/wood1.m
+++ b/optimization/test_functions/wood1.m
@@ -4,5 +4,9 @@ function f = wood1(x)
   ## instead of four distinct arguments. See wood.m for more
   ## information.
   ##
-  f = wood(x(1), x(2), x(3), x(4));
+  if (length(x) == 4)
+    f = wood(x(1), x(2), x(3), x(4));
+  else
+    f = NA;
+  end
 end