bug 1619 fix

1 files changed, 29 insertions, 0 deletions

diff --git a/tests/nonRegression/bug1619.sci b/tests/nonRegression/bug1619.sci
new file mode 100644
index 0000000..cd86e6b
--- /dev/null
+++ b/tests/nonRegression/bug1619.sci
@@ -0,0 +1,29 @@
+// Non-regression test file for bug 1619
+// Copyright INRIA
+// Scilab Project - Serge Steer
+// Copyright INRIA 2006
+// Date : 2 octobre 2006
+
+mode(-1);
+clear;
+
+
+
+deff('x=foo(n)',['if n==0 then'
+                 '  x=[]'
+                 'else'
+                 '  x=0'
+                 '  for k=1:n'
+                 '    s=svd(rand(n+10,n+10))'
+                 '    x=x+s(1)'
+                 '  end'
+                 'end'],'p')
+T1=execstr('T=macr2tree(foo)','errcatch')==0;
+clear foo;
+function y=foo(),y=sin(33)+1;endfunction
+foo(); //execution creates a deleted op in the pseudo code of foo
+T2=execstr('macr2tree(foo)','errcatch')==0
+affich_result(T1&T2,1619);
+
+clear
+