blob: 569312214926f3ac5927edcdc0ba802e3888c641 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
-- { 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;
|
