2 -- { dg-options "-O2 -gnatp -Wuninitialized" }
4 procedure Forward_Vla is
6 function N return Natural is begin return 1; end;
9 type Sequence_Access is access all Sequence;
11 Ptr : Sequence_Access := null; -- freeze access type
13 Sequence_Length : Natural := N;
14 type Sequence is array (1 .. Sequence_Length) of Natural;