M2compiler-V1/tests/f_libimpl.LST

Listing:

    1  IMPLEMENTATION MODULE FLib;
    2  PROCEDURE Fib(n : INTEGER) : INTEGER;
    3  BEGIN
    4    IF n <= 1 THEN RETURN n ELSE RETURN Fib(n - 1) + Fib(n - 2) END
    5  END Fib;
    6  END FLib.

    0 errors