gcc/testsuite/gnat.dg/lto9.adb

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