blob: 29d94f48e34f63cfb3a2b6e2e5848b397da6bdca [file] [log] [blame]
-- { dg-do run }
-- { dg-options "-gnatws" }
procedure Test_Bounded is
type Bounded (Length : Natural := 0) is
record
S : String (1..Length);
end record;
type Ref is access all Bounded;
X : Ref := new Bounded;
begin
null;
end Test_Bounded;