Mercurial > forge

changeset 12548:9a277c75a100 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix compatibility issue with octave 3.8.2 in debian/jessie
author schloegl
date Wed, 14 Jan 2015 19:05:11 +0000
parents 3e6de761925d
children 793c76680778
files extra/NaN/inst/nantest.m
diffstat 1 files changed, 11 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/extra/NaN/inst/nantest.m	Tue Jan 06 12:06:29 2015 +0000
+++ b/extra/NaN/inst/nantest.m	Wed Jan 14 19:05:11 2015 +0000
@@ -62,7 +62,7 @@
         end;
 end;
 
-if ~any(exist('erfinv')==[2,3,5])
+if ~(any(exist('erfinv') == [2,5]))
        fprintf(1,'ERFINV is not available\n');
 
 elseif exist('norminv','file')==2,
@@ -227,8 +227,16 @@
 %(roots([2e-37,-2,2])-[1e37;1])
 %%%%% check nan/nan   %% this test addresses a problem in Matlab 5.3, 6.1 & 6.5
 p    = 4;
-tmp1 = repmat(nan,p)/repmat(nan,p);
-tmp2 = repmat(nan,p)\repmat(nan,p);
+try
+       tmp1 = repmat(nan,p)/repmat(nan,p);
+catch   % exception error in Octave 3.8.2 of debian wheezy
+       tmp1 = repmat(nan, 4);
+end;
+try
+       tmp2 = repmat(nan,p)\repmat(nan,p);
+catch   % exception error in Octave 3.8.2 of debian wheezy
+       tmp2 = repmat(nan, 4); 
+end
 tmp3 = repmat(0,p)/repmat(0,p);
 tmp4 = repmat(0,p)\repmat(0,p);
 tmp5 = repmat(0,p)*repmat(inf,p);