M2compiler-V1/tests/p_fib.mod

MODULE PFib;
VAR ExitCode : INTEGER;
PROCEDURE Fib(n : INTEGER) : INTEGER;
BEGIN
  IF n <= 1 THEN RETURN n ELSE RETURN Fib(n - 1) + Fib(n - 2) END
END Fib;
BEGIN
  ExitCode := Fib(10)
END PFib.