Listing:

    1  MODULE MBadDup;
    2  MODULE M EXPORT cnt;
    3  VAR cnt : INTEGER;
    4  END M;
    5  MODULE M EXPORT k;
*****         ^ duplicate identifier
    6  VAR k : INTEGER;
    7  END M;
    8  VAR ExitCode : INTEGER;
    9  BEGIN
   10    ExitCode := 0
   11  END MBadDup.

    1 error