M2compiler-V3/compiler/tests/t_bad_while.mod

MODULE TBadWhile;
VAR ExitCode : INTEGER;
BEGIN
  WHILE 1 DO ExitCode := 1 END
END TBadWhile.