gdb/testsuite/gdb.chill/result.ch

   1 test_result:  MODULE
   2
   3   DCL i INT := 5;
   4
   5   simple_func: PROC () RETURNS (INT);
   6     DCL j INT := i;
   7     RESULT 10;
   8     i + := 2;
   9     RESULT j + 2;
  10     i + := 2;
  11   END simple_func;
  12
  13   i := simple_func ();
  14   i := simple_func ();
  15   i * := 10;
  16 END test_result;