PR debug/66535
[official-gcc.git] / gcc / testsuite / gnat.dg / lto1.adb
blobd777097ad8464b7dfc4e68ba53f56ba6ffe0f4f9
1 -- PR ada/43106
2 -- Testcase by Bill Neven <neven@hitt.nl>
4 -- { dg-do run }
5 -- { dg-options "-O2 -flto" { target lto } }
7 with Lto1_Pkg; use Lto1_Pkg;
9 procedure Lto1 is
10 Radar : Radar_T;
11 begin
12 Radar.Sensor_Type := radcmb;
13 Initialize (Radar);
14 end;