lama_byterun/regression/test027.expr
Dmitry Boulytchev b19bea4d58 Functions in X86
2018-04-11 00:47:46 +03:00

30 lines
289 B
Text

fun print () {
write (a);
write (b);
write (c)
}
fun test1 (a) {
write (a);
print ();
write (a);
if a < 4 then
test2 (a+1);
print ()
fi
}
fun test2 (b) {
write (b);
print ();
test1 (b+1);
print ()
}
read (x);
a := 100;
b := 200;
c := 300;
test1 (1)