M2compiler-V1/tests/t_while.LST

Listing:

    1  MODULE TWhile;
    2  VAR i, s : INTEGER; ExitCode : INTEGER;
    3  BEGIN
    4    i := 1; s := 0;
    5    WHILE i <= 10 DO s := s + i; i := i + 1 END;
    6    ExitCode := s
    7  END TWhile.

    0 errors