OSDN Git Service

* gcc-interface/decl.c (make_aligning_type): Declare the type.
[pf3gnuchains/gcc-fork.git] / 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;