git @ Cat's Eye Technologies Iphigeneia / rel_1_0_2007_1125 test / 09.iphi
rel_1_0_2007_1125

Tree @rel_1_0_2007_1125 (Download .tar.gz)

09.iphi @rel_1_0_2007_1125 — raw · history · blame 

1
2
3
4
5
6
7
8
(* Test 'if ... then ... else' expression with positive result *)

var a in var b in var c in
begin
    a := 10;
    b := 2;
    c := if a < 20 then a - b else a / b
end