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

 --  { dg-do compile }
 --  { dg-options "-gnatd.F" }

 package body Allocator2 is
    procedure Dummy is null;
 end Allocator2;
	-- { dg-do compile }
	-- { dg-options "-gnatd.F" }

	package body Allocator2 is
	procedure Dummy is null;
	end Allocator2;