iconvert macro corrected. 09/11509/2
Cedric Delamarre [Wed, 15 May 2013 12:22:37 +0000 (14:22 +0200)]
test_run("integer","bug_10782",["no_check_error_output" ]);

Change-Id: I0977cb62c66b1c05618a135f152adb8565abbbe5

scilab/modules/integer/macros/%_iconvert.sci

index 63c1a5c..5b6a1e2 100644 (file)
@@ -9,6 +9,14 @@
 
 function x = %_iconvert(a,typeToConvert)
 
+    if typeof(a) == "constant" & isreal(a) == %f then
+        error(msprintf(_("%s: Wrong type for argument #%d: Real matrix expected.\n"), "iconvert", 1));
+    end
+
+    if floor(typeToConvert) <> typeToConvert then
+        error(msprintf(_("%s: Wrong value for input argument #%d: An integer value expected.\n"), "iconvert", 2));
+    end
+
     if typeof(typeToConvert) <> "constant" | size(typeToConvert, "*") <> 1 then
         error(msprintf(_("%s: Wrong size for argument #%d: Real scalar expected.\n"), "iconvert", 2));
     end