Mercurial > octave

changeset 31348:7c02f8000110

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Merge stable to default.
author Markus Mützel <markus.muetzel@gmx.de>
date Wed, 26 Oct 2022 18:57:09 +0200
parents 3b632e0740d2 (current diff) 800eb86438cc (diff)
children 0c6530418460
files
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/optimization/glpk.m	Tue Oct 25 18:57:50 2022 -0400
+++ b/scripts/optimization/glpk.m	Wed Oct 26 18:57:09 2022 +0200
@@ -489,7 +489,8 @@
     print_usage ();
   endif
 
-   if (! isvector (c) || iscomplex (c) || ischar (c) || any (! isfinite (c)))
+   if (! isvector (c) || iscomplex (c) || ischar (c) || any (isinf (c))
+       || any (isnan (c)))
      error ("glpk: C must be a real vector with finite values");
   endif
   nx = length (c);
@@ -504,7 +505,7 @@
   if (! isreal (A))
     error ("glpk: A must be real valued, not %s", typeinfo (A));
   endif
-  if (any (! isfinite (A(:))))
+  if (any (isinf (A(:))) || any (isnan (A(:))))
     error ("glpk: The values in A must be finite");
   endif