Fix test win64b: test_run('integer', intops')

[scilab.git] / scilab / modules / integer / macros / %i_p_i.sci

diff --git a/scilab/modules/integer/macros/%i_p_i.sci b/scilab/modules/integer/macros/%i_p_i.sci
index c52f66f..ccd0a47 100644 (file)
--- a/scilab/modules/integer/macros/%i_p_i.sci
+++ b/scilab/modules/integer/macros/%i_p_i.sci
@@ -9,23 +9,24 @@
 
 
 function r=%i_p_i(a,n)
-if or(n<0) then
-  r=double(a)^n
-else
-  if size(a,'*')==1 then
-    r=iconvert(double(a)^double(n),inttype(a))
-  else
-    if size(n,'*')<>1 then
-      error(43)
+    if or(n<0) then
+        r=double(a)^n
     else
-      n=double(n)
-      r=a
-      if size(a,1)==size(a,2) then
-       for i=2:n,r=r*a,end
-      else
-       for i=2:n,r=r.*a,end
-      end
-    end
-  end
-end  
+        if size(a,'*')==1 then
+            r=iconvert(double(a)^double(n),inttype(a))
+        else
+            if size(n,'*')<>1 then
+                error(43)
+            else
+                n=double(n)
+                r=a
+                if size(a,1)==size(a,2) then
+                    for i=2:n,r=r*a,end
+                else
+                    mprintf(gettext("Warning: Syntax \""vector ^ scalar\"" is obsolete. It will be removed in Scilab 6.0.\n  Use \""vector .^ scalar\"" instead.\n"));
+                    for i=2:n,r=r.*a,end
+                end
+            end
+        end
+    end  
 endfunction