1 package Deferred_Const3_Pkg is
3 C : constant Natural := 1;
5 C1 : constant Natural := 1;
6 for C1'Address use C'Address;
9 for C2'Address use C'Address;
11 C3 : constant Natural;
16 C2 : constant Natural := 1;
18 C3 : constant Natural := 1;
19 for C3'Address use C'Address;
21 end Deferred_Const3_Pkg;