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