M2compiler-V1/tests/p_return.mod

MODULE PRet;
VAR ExitCode : INTEGER;
PROCEDURE FindIt(n : INTEGER) : INTEGER;
VAR i : INTEGER;
BEGIN
  i := 0;
  LOOP
    i := i + 1;
    IF i >= n THEN RETURN i * 10 END
  END
END FindIt;
BEGIN
  ExitCode := FindIt(4)
END PRet.