gdb/testsuite/gdb.chill/result.ch

   1 test_result:  MODULE
   2
   3   DCL i INT := 5;
   4
   5   SYNMODE m_struct = STRUCT (l LONG, b BOOL);
   6   DCL v_struct m_struct := [ 20, TRUE ];
   7
   8   simple_func: PROC () RETURNS (INT);
   9     DCL j INT := i;
  10     RESULT 10;
  11     i + := 2;
  12     RESULT j + 2;
  13     i + := 2;
  14   END simple_func;
  15
  16   ret_struct: PROC () RETURNS (m_struct)
  17     DCL v m_struct := [ 33, FALSE ];
  18     RESULT v;
  19     v.l := 18;
  20   END ret_struct;
  21
  22   i := simple_func ();
  23   i := simple_func ();
  24   i * := 10;
  25
  26   v_struct := ret_struct ();
  27
  28   i := 33; -- for gdb
  29 END test_result;