fix bug_6690: up date random permutations
[scilab.git] / scilab / modules / core / tests / unit_tests / compiled_functions.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - INRIA
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // compiled functions
9
10 deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)')
11
12 a = stacksize();
13 a = a(1);
14 y = foo(a);
15
16 if y<>a+1000 then pause,end
17 a=y;
18 deff('y=toto()','a=stacksize();a=a(1);y=foo(a)')
19 y=toto();
20 if y<>a+1000 then pause,end
21 a=y;
22 exec(toto)
23 if y<>a+1000 then pause,end
24 a=y;
25
26 //in a loop
27 for k=1:3,
28   y=toto();
29   if y<>a+1000 then pause,end
30   a=y;
31 end