Commit db5524df authored by Gwenaël Delaval's avatar Gwenaël Delaval

Tests addition

parent e4b0578b
This diff is collapsed.
node when2(x :int; c :bool) returns (y :int)
let
automaton
state FirstPeriod do
y = x when c;
until true then Cruise
state Cruise do
y = x when c;
end
tel
type record = { a : int; b : int }
const a : record = { a = 0; b = 1 }
const b : record^2 = [a, a]
node main() = (o:int)
let
o = (b[0]).a
tel
const nat :float = 0.0
node main() = (nat : int)
let
nat = 0 fby (nat + 1)
tel
node main() = (o,p:int)
let
o = ~-1 -> pre o + 1;
p = -1 fby p + 1
tel
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment