binutils-gdb/gdb/testsuite/gdb.chill/result.ch

30 lines
523 B
Plaintext

test_result: MODULE
DCL i INT := 5;
SYNMODE m_struct = STRUCT (l LONG, b BOOL);
DCL v_struct m_struct := [ 20, TRUE ];
simple_func: PROC () RETURNS (INT);
DCL j INT := i;
RESULT 10;
i + := 2;
RESULT j + 2;
i + := 2;
END simple_func;
ret_struct: PROC () RETURNS (m_struct)
DCL v m_struct := [ 33, FALSE ];
RESULT v;
v.l := 18;
END ret_struct;
i := simple_func ();
i := simple_func ();
i * := 10;
v_struct := ret_struct ();
i := 33; -- for gdb
END test_result;