Testing/Semantic/t3-2.p


1
2
3
4
5
6
7
8

(* ERROR: test expressions in IF/WHILE statements must be Boolean *)
program main( input, output );
  var a: integer;
begin
  while a + 123 do
    a := a + 1
end.