summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/lto4.adb
blob: 8bb57b49dcd4841ac106b9a498cc5e58c2fd1af3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
-- { 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;