* gcc-interface/trans.c (gnat_to_gnu): Avoid making a SAVE_EXPR for

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / nat1.ads

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