ccda44f92f
* pr-4975.ch, pr-4975-grt.ch, pr-4975.exp, Makefile.in: Ditto.
16 lines
256 B
Text
16 lines
256 B
Text
test_result: MODULE
|
|
|
|
DCL i INT := 5;
|
|
|
|
simple_func: PROC () RETURNS (INT);
|
|
DCL j INT := i;
|
|
RESULT 10;
|
|
i + := 2;
|
|
RESULT j + 2;
|
|
i + := 2;
|
|
END simple_func;
|
|
|
|
i := simple_func ();
|
|
i := simple_func ();
|
|
i * := 10;
|
|
END test_result;
|