path: root/check/type/bool/fail-while.p

program main ( input, output );
        var a: integer;
begin
	while (1)
        do
                a:= 0
end.