OSDN Git Service

* gnat.dg/lto[12456].adb: Add "target lto" marker.
[pf3gnuchains/gcc-fork.git] / 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;