(* Test: FOR & EXIT statements *)

MODULE Main;

VAR
  j: INTEGER;

BEGIN
  FOR i := 0 TO 9 DO
  END;

  FOR i := 9 TO 0 DO
  END;

  FOR i := 0 TO 9 BY 3 DO
  END;

  FOR i := 9 TO 0 BY -3 DO
  END;

  FOR i := 0 TO 9 BY 3 DO
     j := i;
     EXIT;
     j := i;
  END;

  FOR i := 0 TO 9 BY j DO
     j := i;
     EXIT;
     j := i;
  END;

  FOR i := j+0 TO j+9 BY 2*j DO
     j := i;
     EXIT;
     j := i;
  END;

  FOR i := 0 TO 9 BY 3 DO
     j := i;

     FOR i := 0 TO 9 BY 3 DO
        j := i;
        EXIT;
        j := i;
     END;

     EXIT;
     j := i;
  END;

END Main.