gcc/testsuite/gnat.dg/deferred_const3_pkg.ads

   1 package Deferred_Const3_Pkg is
   2
   3   C : constant Natural := 1;
   4
   5   C1 : constant Natural := 1;
   6   for C1'Address use C'Address;
   7
   8   C2 : constant Natural;
   9   for C2'Address use C'Address;
  10
  11   C3 : constant Natural;
  12
  13   procedure Dummy;
  14
  15 private
  16   C2 : constant Natural := 1;
  17
  18   C3 : constant Natural := 1;
  19   for C3'Address use C'Address;
  20
  21 end Deferred_Const3_Pkg;