gdb/testsuite/gdb.chill/result.ch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

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;