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