Merge from mainline (163495:164578).

[official-gcc/graphite-test-results.git] / gcc / testsuite / gnat.dg / constant1.adb

--  { dg-do compile }

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