gcc-4.9/gcc/testsuite/gnat.dg/lto9.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

-- { dg-do run }
-- { dg-options "-flto" { target lto } }

with Lto9_Pkg1; use Lto9_Pkg1;

procedure Lto9 is

begin

   District_Subscription_Lists.Put
     (List     => District_01_Subscribers,
      Elem_Ptr => New_Subscriber_01'Access,
      Location => 1);

end;