gcc/testsuite/gnat.dg/tagged2.adb - gcc - Git at Google

 --  { dg-do compile }

 package body Tagged2 is

    procedure Get_Parent
      (DeviceX : Device;
       Parent  : out Device) is null;

 end Tagged2;
	-- { dg-do compile }

	package body Tagged2 is

	procedure Get_Parent
	(DeviceX : Device;
	Parent : out Device) is null;

	end Tagged2;