blob: c76e5fdb80201c646acb876d251885478b6c3fb4 [file] [log] [blame]
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;