blob: 3ad1f0fbaf4d7069e0f308427e8c15ec4f672252 (
plain)
1
2
3
4
5
6
7
8
9
10
|
-- { dg-do run }
-- { dg-options "-flto" { target lto } }
with Lto19_Pkg1;
procedure Lto19 is
R : Lto19_Pkg1.Rec := (I => 1, A => (others => 0));
begin
Lto19_Pkg1.Proc (R);
end;
|