gcc/testsuite/gnat.dg/lto4.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-flto" }
   3
   4 package 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
  12 end Lto4;