4 with Taft_Type3_Pkg; use Taft_Type3_Pkg;
6 procedure Taft_Type3 is
8 subtype S is String (1..32);
10 Empty : constant S := (others => ' ');
12 procedure Proc (Data : in out T) is begin null; end;
15 entry Send (Data : in out T);
19 type List_T is array (1 .. 4) of S;
20 L : List_T := (others => Empty);
22 accept Send (Data : in out T) do