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

 -- { dg-do compile }

 with Discr34_Pkg; use Discr34_Pkg;

 procedure Discr34 is
    Object : Rec := F;
 begin
    null;
 end;
	-- { dg-do compile }

	with Discr34_Pkg; use Discr34_Pkg;

	procedure Discr34 is
	Object : Rec := F;
	begin
	null;
	end;