M2compiler-V1/tests/p_bad_nobody.LST

Listing:

    1  MODULE PBadNobody;
    2  PROCEDURE P(a : INTEGER) : INTEGER;
    3  FORWARD;
    4  VAR ExitCode : INTEGER;
    5  BEGIN
    6    ExitCode := 0
    7  END PBadNobody.
*****                ^ procedure forward mismatch or missing body

    1 error