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