M2compiler-V2/tests/r_flow.mod

MODULE RFlow;
VAR ExitCode : INTEGER;
    i, s : INTEGER;
BEGIN
  s := 0;
  IF 1 > 2 THEN s := 1
  ELSIF 2 > 3 THEN s := 2
  ELSE s := 3
  END;
  i := 0;
  WHILE i < 10 DO i := i + 1; s := s + i END;
  REPEAT s := s - 1 UNTIL s < 60;
  LOOP
    s := s + 1;
    IF s >= 60 THEN EXIT END
  END;
  FOR i := 1 TO 5 BY 2 DO s := s + i END;
  FOR i := 10 TO 1 DO s := s + 0 END;
  ExitCode := s
END RFlow.