Fix modulo call on non-double datatype. Add unitary test.
[scilab.git] / scilab / modules / elementary_functions / macros / modulo.sci
index b632e65..53298e6 100644 (file)
@@ -17,11 +17,11 @@ function i = modulo(n, m)
         error(msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"),"modulo", 2));\r
     end\r
 \r
-    if ~isreal(n) then\r
+    if typeof(n) <> "constant" | ~isreal(n) then\r
         error(msprintf(gettext("%s: Wrong type for input argument #%d: A real expected.\n"), "modulo", 1));\r
     end\r
 \r
-    if ~isreal(m) then\r
+    if typeof(m) <> "constant" | ~isreal(m) then\r
         error(msprintf(gettext("%s: Wrong type for input argument #%d: A real expected.\n"), "modulo", 2));\r
     end\r
 \r
@@ -53,4 +53,5 @@ endfunction
 \r
 \r
 \r
-\r\r
+\r
+\r