15 lines
252 B
Plaintext
15 lines
252 B
Plaintext
(* pour debugger
|
|
set arguments -v test/good/t1.mls *)
|
|
type t
|
|
|
|
node f(x,z:int) returns (o1:int)
|
|
var o: int;
|
|
let
|
|
present
|
|
| (x = 0) do o = 0 -> pre(o+0) + 1
|
|
| (z = 2) do o = 4 -> 5
|
|
default do o = 2
|
|
end;
|
|
o1 = o;
|
|
tel
|