gcc/testsuite/gnat.dg/taft_type3.adb

-- { 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;