M2compiler-V2/tests/r_proc.LST

Listing:

    1  MODULE RProc;
    2  VAR ExitCode : INTEGER;
    3  PROCEDURE Add(a, b : INTEGER) : INTEGER;
    4  BEGIN
    5    RETURN a + b
    6  END Add;
    7  PROCEDURE Fact(n : INTEGER) : INTEGER;
    8  BEGIN
    9    IF n <= 1 THEN RETURN 1 END;
   10    RETURN n * Fact(n - 1)
   11  END Fact;
   12  BEGIN
   13    ExitCode := Add(20, 22) + Fact(5)
   14  END RProc.

    0 errors