summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/lto9.adb
blob: f4ec040d0945df231a6db76de892690a988fcc41 (plain)
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;