1package Tagged2 is
2   type Device;
3
4   procedure Get_Parent
5     (DeviceX : Device;
6      Parent  : out Device);
7
8   type Device is tagged null record;
9end Tagged2;
10