compiler-the-translators/tests/sprint4/test/sp4_cg_less_than.alpha

(* TEST: [-asc -tc -cg -ir] *)
type main: integer -> integer
function test: main

test (a) := {
        [Boolean: b; integer: x; integer: y]
character        x := 1;
	y := 2;
	b := x < y;
        return 1;
}