wrong.tas

C/C++词法语法分析程序

(* 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.