M2compiler-V1/tests/p_bad_proper.LST

Listing:

    1  MODULE PBadProper;
    2  VAR ExitCode : INTEGER;
    3  PROCEDURE DoIt(x : INTEGER);
    4  BEGIN
    5    ExitCode := x
    6  END DoIt;
    7  BEGIN
    8    ExitCode := DoIt(1) + 2
*****                      ^ invalid procedure call
    9  END PBadProper.

    1 error