gcc/testsuite/gnat.dg/taft_type3.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-g" }
   3
   4 with Taft_Type3_Pkg; use Taft_Type3_Pkg;
   5
   6 procedure Taft_Type3 is
   7
   8   subtype S is String (1..32);
   9
  10   Empty : constant S := (others => ' ');
  11
  12   procedure Proc (Data : in out T) is begin null; end;
  13
  14   task type Task_T is
  15     entry Send (Data : in out T);
  16   end;
  17
  18   task body Task_T is
  19     type List_T is array (1 .. 4) of S;
  20     L : List_T := (others => Empty);
  21   begin
  22     accept Send (Data : in out T) do
  23       Proc (Data);
  24     end;
  25   end;
  26
  27 begin
  28   null;
  29 end;