1-- { dg-do compile } 2-- { dg-options "-flto" { target lto } } 3 4package body Lto4 is 5 6 procedure SS_Allocate (Stack : Stack_Ptr) is 7 Chunk : Chunk_Ptr := Stack.Current_Chunk; 8 begin 9 Chunk := new Chunk_Id (First => Chunk.Last, Last => Chunk.Last); 10 end; 11 12end Lto4; 13