* Bug #9385 fixed - The type checking in trigonometric functions has been added.
[scilab.git] / scilab / modules / elementary_functions / macros / cscd.sci
index d598194..2c2198a 100644 (file)
@@ -14,10 +14,11 @@ function x = cscd(x)
     if rhs <> 1 then
         error(msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"),"cscd", 1));
     end
-
-    if ~isreal(x) then
-        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"),"cscd",1));
+    
+    if type(x) <> 1 | ~isreal(x) then
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "cscd", 1));
     end
+
     n = round(x/90);
     x = x - n*90;
     m = pmodulo(n,4);