Subversion Repositories or1k

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;