lama_byterun/regression/test041.expr
2019-03-07 19:06:04 +03:00

11 lines
No EOL
167 B
Text

fun f (a) {
case a of
A (x, y, z) -> write (x + y + z)
| B (x, y, z) -> write (x + y + z)
esac
}
x := read ();
f (A (100, 200, 300));
f (B (500, 600, 700))