Listing: 1 MODULE MBadPriv; 2 MODULE M EXPORT cnt; 3 VAR cnt, secret : INTEGER; 4 END M; 5 VAR ExitCode : INTEGER; 6 BEGIN 7 M.secret := 1; ***** ^ undeclared identifier 8 ExitCode := 0 9 END MBadPriv. 1 error
