M2compiler-V1/tests/p_bad_actual.LST

Listing:

    1  MODULE PBadActual;
    2  VAR ExitCode : INTEGER;
    3  PROCEDURE Take(b : BOOLEAN) : INTEGER;
    4  BEGIN
    5    IF b THEN RETURN 1 ELSE RETURN 0 END
    6  END Take;
    7  BEGIN
    8    ExitCode := Take(5)
*****                     ^ invalid procedure call
    9  END PBadActual.

    1 error