projects
/
deliverable
/
binutils-gdb.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
b8c65e7d08503386babb772094d5e216460783e5
[deliverable/binutils-gdb.git]
/
gdb
/
testsuite
/
gdb.chill
/
result.ch
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;
This page took
0.029997 seconds
and
4
git commands to generate.