2 -- { dg-options "-flto" { target lto } }
4 procedure Lto2 (Nbytes : Natural) is
6 type Message_T (Length : Natural) is record
9 when others => Id : Natural;
13 type Local_Message_T is new Message_T (Nbytes);
15 function One_message return Local_Message_T is
24 procedure Process (X : Local_Message_T) is begin null; end;
27 Process (One_Message);