scilab/modules/core/tests/unit_tests/not_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 //non compiled functions
   8 deff("y=foo(a)","x=a+1000,stacksize(x),y=stacksize();y=y(1)","n");
   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)","n");
  15 y = toto();
  16 if y<>a+1000 then bugmes();quit;end
  17 a=y;
  18 exec(toto);
  19  y  =
  20
  21     10003000.
  22 if y<>a+1000 then bugmes();quit;end
  23 a=y;