Listing:

    1  MODULE TBadMGhost;
    2  MODULE M EXPORT cnt;
    3  VAR cnt : INTEGER;
    4  END M;
    5  VAR x : M.ghost;
*****            ^ undeclared identifier
    6  VAR ExitCode : INTEGER;
    7  BEGIN
    8    ExitCode := 0
    9  END TBadMGhost.

    1 error