M2compiler-V1/tests/p_bad_arity.LST

Listing:

    1  MODULE PBadArity;
    2  VAR ExitCode : INTEGER;
    3  PROCEDURE Add(a, b : INTEGER) : INTEGER;
    4  BEGIN
    5    RETURN a + b
    6  END Add;
    7  BEGIN
    8    ExitCode := Add(1)
*****                     ^ invalid procedure call
    9  END PBadArity.

    1 error