1 with System; 2 package NAT1 is 3 Nat_One_Storage : constant Natural := 1; 4 One_Address : constant System.Address := Nat_One_Storage'Address; 5 end; 6