M2compiler-V1/tests/p_fib.LST

Listing:

    1  MODULE PFib;
    2  VAR ExitCode : INTEGER;
    3  PROCEDURE Fib(n : INTEGER) : INTEGER;
    4  BEGIN
    5    IF n <= 1 THEN RETURN n ELSE RETURN Fib(n - 1) + Fib(n - 2) END
    6  END Fib;
    7  BEGIN
    8    ExitCode := Fib(10)
    9  END PFib.

    0 errors