M2compiler-V3/compiler/tests/t_while.mod

MODULE TWhile;
VAR ExitCode, i, s : INTEGER;
BEGIN
  s := 0; i := 1;
  WHILE i <= 10 DO s := s + i; i := i + 1 END;
  ExitCode := s
END TWhile.