1-- { dg-do run }
2-- { dg-options "-flto" { target lto } }
3
4with Lto9_Pkg1; use Lto9_Pkg1;
5
6procedure Lto9 is
7
8begin
9
10   District_Subscription_Lists.Put
11     (List     => District_01_Subscribers,
12      Elem_Ptr => New_Subscriber_01'Access,
13      Location => 1);
14
15end;
16