1-- { dg-do compile } 2-- { dg-options "-flto" { target lto } } 3 4package body Lto17 is 5 6 function To_Chunk_List(C : Chunk) return Chunk_List is 7 begin 8 return new Chunk_List_Element'(C.Size, C, null); 9 end; 10 11end Lto17; 12