3 -- the forward declaration is the trigger
6 type Stream_Ptr is access Stream;
8 type Stream is array (Positive range <>) of Character;
10 function Get_Size (S : Stream_Ptr) return Natural;
12 type Rec (Size : Natural) is
17 My_Desc : constant Stream_Ptr := new Stream'(1 => ' ');
19 My_Size : constant Natural := Get_Size (My_Desc);
21 subtype My_Rec is Rec (My_Size);