smallerthan.ast

一个编译器修改的例子

function main(argv: array of string): int is
var g: real;
	h: int;
	i: bool;
	j: char;
begin
	g:=0.1;
	(g<1.0);
	i:=(g<2.0);
	i:=(1.0<g);
	h:=3;
	(h<4);
	i:=(h<5);
	i:=(5<h);
	j:='a';
	(j<'b');
	i:=(j<'b');
	i:=('b'<j);
end