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

 --  { dg-do compile }

 procedure Constant1 is
    Def_Const : constant Integer;
    pragma Import (Ada, Def_Const);
 begin
    null;
 end;
	-- { dg-do compile }

	procedure Constant1 is
	Def_Const : constant Integer;
	pragma Import (Ada, Def_Const);
	begin
	null;
	end;