Listing: 1 MODULE TBadMMod; 2 MODULE M EXPORT cnt; 3 VAR cnt : INTEGER; 4 END M; 5 VAR x : M; ***** ^ not supported in this phase 6 VAR ExitCode : INTEGER; 7 BEGIN 8 ExitCode := 0 9 END TBadMMod. 1 error