Subversion Repositories openrisc

-- { dg-do compile }
-- { dg-options "-g" }
 
with Taft_Type3_Pkg; use Taft_Type3_Pkg;
 
procedure Taft_Type3 is
 
  subtype S is String (1..32);
 
  Empty : constant S := (others => ' ');
 
  procedure Proc (Data : in out T) is begin null; end;
 
  task type Task_T is
    entry Send (Data : in out T);
  end;
 
  task body Task_T is
    type List_T is array (1 .. 4) of S;
    L : List_T := (others => Empty);
  begin
    accept Send (Data : in out T) do
      Proc (Data);
    end;
  end;
 
begin
  null;
end;