Wattributes-10.c: Add -fno-common option on hppa*-*-hpux*.
[official-gcc.git] / gcc / testsuite / gnat.dg / lto9.adb
blobf4ec040d0945df231a6db76de892690a988fcc41
1 -- { dg-do run }
2 -- { dg-options "-flto" { target lto } }
4 with Lto9_Pkg1; use Lto9_Pkg1;
6 procedure Lto9 is
8 begin
10 District_Subscription_Lists.Put
11 (List => District_01_Subscribers,
12 Elem_Ptr => New_Subscriber_01'Access,
13 Location => 1);
15 end;