gcc-4.9/gcc/testsuite/gnat.dg/nat1.ads


1
2
3
4
5

   with System;
   package NAT1 is
      Nat_One_Storage : constant Natural := 1;
      One_Address : constant System.Address := Nat_One_Storage'Address;
   end;