1-- { dg-do link } 2-- { dg-options "-O -g -flto" { target lto } } 3 4with Lto24_Pkg1; 5 6procedure Lto24 is 7 R : Lto24_Pkg1.Rec (False); 8begin 9 R.Empty := True; 10end; 11