(* This is an incorrect version of the test program for the Taste-compiler. It asks for a number and computes the sum of all integers up to this number.*) PROGRAM Test; VAR i: INTEGER; i: BOOLEAN; PROCEDURE SumUp; VAR sum: INTEGER BEGIN sum:=0; WHILE j>0 DO sum:=sum+i; i:=i-1 END; WRITE sum END SumUp; BEGIN READ i; WHILE i>0 DO SumUp; READ i END END Test.