blob: 8bb57b49dcd4841ac106b9a498cc5e58c2fd1af3 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-flto" { target lto } }
package body Lto4 is
procedure SS_Allocate (Stack : Stack_Ptr) is
Chunk : Chunk_Ptr := Stack.Current_Chunk;
begin
Chunk := new Chunk_Id (First => Chunk.Last, Last => Chunk.Last);
end;
end Lto4;