gimple.h (compare_field_offset): Rename into...
[gcc.git] / 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;