package LimitedPrivateType is   --   -- Declaring type Cell as limited private provides   -- complete control over the type   -- by not allowing Copy/Assignment operation on it   -- Unless Assignment operator is overridden.   --   type LimitedPrivateCell is limited private;   function Constructor (P: Integer) return LimitedPrivateCell;   type PrivateCell is private;private   type LimitedPrivateCell is limited      record         I: Integer;      end record;   type PrivateCell is      record         I: Integer;      end record;   procedure DummyProc;end LimitedPrivateType;