MODULE TBadUndecl;
BEGIN
  ExitCode := 1
END TBadUndecl.