gcc/testsuite/gnat.dg/deferred_const2_pkg.ads

   1 package Deferred_Const2_Pkg is
   2
   3   I : Integer := 16#20_3A_2D_28#;
   4
   5   pragma Warnings (Off);
   6   S : constant string(1..4);
   7   for S'address use I'address;
   8   pragma Import (Ada, S);
   9
  10   procedure Dummy;
  11
  12 end Deferred_Const2_Pkg;