1package 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
12end Deferred_Const2_Pkg;
13