gcc/testsuite/gnat.dg/lto9_pkg1.ads

   1 with Lto9_Pkg2;
   2
   3 package Lto9_Pkg1 is
   4
   5    subtype Lengths is Natural range 0 .. 50;
   6
   7    type Subscriber (NLen, ALen: Lengths := 50) is record
   8       Name    : String(1 .. NLen);
   9       Address : String(1 .. ALen);
  10    end record;
  11
  12    type Subscriber_Ptr is access all Subscriber;
  13
  14    package District_Subscription_Lists is new Lto9_Pkg2
  15      (Element_Type => Subscriber,
  16       Element_Ptr  => Subscriber_Ptr,
  17       Size         => 100);
  18
  19    District_01_Subscribers : District_Subscription_Lists.List_Type;
  20
  21    New_Subscriber_01 : aliased Subscriber :=
  22      (12, 23, "Brown, Silas", "King's Pyland, Dartmoor");
  23
  24 end Lto9_Pkg1;