[Octave-cvsupdate] octave-forge/extra/NaN nantest.m,1.28,1.29

[<sch...@pr...>]

Update of /cvsroot/octave/octave-forge/extra/NaN
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19262

Modified Files:
	nantest.m 
Log Message:
check whether BITAND and BITSHIFT can return NaN

Index: nantest.m
===================================================================
RCS file: /cvsroot/octave/octave-forge/extra/NaN/nantest.m,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- nantest.m	24 Nov 2003 23:21:47 -0000	1.28
+++ nantest.m	29 Jan 2004 16:57:49 -0000	1.29
@@ -110,11 +110,23 @@
                 % fprintf(1,'Warning: GEOMEAN([0,1,2,3]) NaN instead of 0\n');
         end;
 end;
-%%%%% HARMMEAN - this test addresses a problem in Octave
+%%%%% HARMMEAN - this test addresses a problem in Octave
 if exist('harmmean')==2,
         if isnan(harmmean(0:3)),
-                fprintf(1,'HARMMEAN should be replaced\n');
-                % fprintf(1,'Warning: HARMMEAN([0,1,2,3]) NaN instead of 0\n');
+                fprintf(1,'HARMMEAN should be replaced\n');
+                % fprintf(1,'Warning: HARMMEAN([0,1,2,3]) NaN instead of 0\n');
+        end;
+end;
+%%%%% BITAND - this test addresses a problem in Octave
+if exist('bitand')>1,
+        if isnan(bitand(2^33-1,13)),
+                fprintf(1,'BITAND can return NaN. \n');
+        end;
+end;
+%%%%% BITSHIFT - this test addresses a problem in Octave
+if exist('bitshift')==2,
+        if isnan(bitshift(5,30,32)),
+                fprintf(1,'BITSHIFT can return NaN.\n');
         end;
 end;