M2compiler-V1/tests/p_return.LST

Listing:

    1  MODULE PRet;
    2  VAR ExitCode : INTEGER;
    3  PROCEDURE FindIt(n : INTEGER) : INTEGER;
    4  VAR i : INTEGER;
    5  BEGIN
    6    i := 0;
    7    LOOP
    8      i := i + 1;
    9      IF i >= n THEN RETURN i * 10 END
   10    END
   11  END FindIt;
   12  BEGIN
   13    ExitCode := FindIt(4)
   14  END PRet.

    0 errors