M2compiler-V1/tests/p_func.LST

Listing:

    1  MODULE PFunc;
    2  VAR ExitCode : INTEGER;
    3  PROCEDURE Double(x : INTEGER) : INTEGER;
    4  BEGIN
    5    RETURN x * 2
    6  END Double;
    7  BEGIN
    8    ExitCode := Double(10) + Double(11)
    9  END PFunc.

    0 errors