* Bug #9385 fixed - The type checking in trigonometric functions has been added.
[scilab.git] / scilab / modules / elementary_functions / macros / asec.sci
index 805f79d..784590f 100644 (file)
@@ -13,6 +13,10 @@ function y = asec(x)
     if rhs <> 1 then
         error(msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"),"asec", 1));
     end
+    
+    if and(type(x) <> [1 5]) then
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real or complex, sparse or full matrix expected.\n"), "asec", 1));
+    end
 
     y = acos(ones(x)./x);
 endfunction