MODULE PBadDispose;
VAR x : INTEGER;
BEGIN
  DISPOSE(x)
END PBadDispose.