30 lines
523 B
Plaintext
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;
|