[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.chill / result.ch

test_result:  MODULE

  DCL i INT := 5;

  simple_func: PROC () RETURNS (INT);
    DCL j INT := i;
    RESULT 10;
    i + := 2;
    RESULT j + 2;
    i + := 2;
  END simple_func;

  i := simple_func ();
  i := simple_func ();
  i * := 10;
END test_result;
Commit	Line	Data
ccda44f9 PB	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;