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