# HG changeset patch
# User jwe
# Date 1062701293 0
# Node ID 2a02f3a16fe02b84ef5c32c555c7143a89064d53
# Parent  124c137af3db73ce8d0dcd5a5d8a2f991f6815da
[project @ 2003-09-04 18:48:13 by jwe]

diff --git a/liboctave/ChangeLog b/liboctave/ChangeLog
--- a/liboctave/ChangeLog
+++ b/liboctave/ChangeLog
@@ -1,3 +1,7 @@
+2003-09-04  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* lo-specfun.cc (xlgamma): Require nonnegative argument.
+
 2003-09-04  Petter Risholm  <risholm@stud.ntnu.no>
 
 	* ArrayN-idx.h (maybe_delete_elements): Implement function.
diff --git a/liboctave/lo-specfun.cc b/liboctave/lo-specfun.cc
--- a/liboctave/lo-specfun.cc
+++ b/liboctave/lo-specfun.cc
@@ -153,7 +153,13 @@
 {
   double result;
   double sgngam;
+
+  if (x < 0)
+    (*current_liboctave_error_handler)
+      ("xlgamma: argument must be nonnegative");
+
   F77_FUNC (dlgams, DLGAMS) (x, result, sgngam);
+
   return result;
 }