blob: 8bbc485c14b566db519a0527995abb6270697bba [file] [log] [blame]
package Tagged2 is
type Device;
procedure Get_Parent
(DeviceX : Device;
Parent : out Device);
type Device is tagged null record;
end Tagged2;