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