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

 --  { dg-do compile }
 --  { dg-options "-gnatw.x -gnatd.a" }
 package body Warn31 is
     procedure Dummy is null;
 end Warn31;
	-- { dg-do compile }
	-- { dg-options "-gnatw.x -gnatd.a" }
	package body Warn31 is
	procedure Dummy is null;
	end Warn31;