Listing:

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

    1 error