gcc/testsuite/gnat.dg/lto1.adb

   1 -- PR ada/43106
   2 -- Testcase by Bill Neven <neven@hitt.nl>
   3
   4 -- { dg-do run }
   5 -- { dg-options "-O2 -flto" { target lto } }
   6
   7 with Lto1_Pkg; use Lto1_Pkg;
   8
   9 procedure Lto1 is
  10    Radar : Radar_T;
  11 begin
  12    Radar.Sensor_Type := radcmb;
  13    Initialize (Radar);
  14 end;