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

(* TEST: [-asc -tc -cg -ir] *)

#include "std.alpha"

entry (arg) := {
    [Boolean: b; integer: x; integer: y; integer: result]

    x := 1;
	y := 2;
	b := x < y;

    result := printBoolean(b);
    return 1;
}