fix bug_6690: up date random permutations
[scilab.git] / scilab / modules / core / tests / unit_tests / compiled_functions.dia.ref
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 // compiled functions
8 deff('y=foo(a)','x=a+1000,stacksize(x),y=stacksize();y=y(1)')
9 a = stacksize();
10 a = a(1);
11 y = foo(a);
12 if y<>a+1000 then bugmes();quit;end
13 a=y;
14 deff('y=toto()','a=stacksize();a=a(1);y=foo(a)')
15 y=toto();
16 if y<>a+1000 then bugmes();quit;end
17 a=y;
18 exec(toto)
19  
20  y  =
21  
22     10003000.  
23  
24  
25 if y<>a+1000 then bugmes();quit;end
26 a=y;
27 //in a loop
28 for k=1:3,
29   y=toto();
30   if y<>a+1000 then bugmes();quit;end
31   a=y;
32 end