Commit | Line | Data |
---|---|---|
c906108c SS |
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; |