package Deferred_Const2_Pkg is

  I : Integer := 16#20_3A_2D_28#;

  pragma Warnings (Off);
  S : constant string(1..4);
  for S'address use I'address;
  pragma Import (Ada, S);

  procedure Dummy;

end Deferred_Const2_Pkg;