blob: 183d2395e848d7012d234e917d4d12aa28738a11 [file] [log] [blame]
package Task1_Pkg is
subtype Typ_Bool is boolean;
type Typ_Task_Par is record
Dummy : Typ_Bool;
end record;
type Typ_Task_Par_Tab is array (1 .. 33) of aliased Typ_Task_Par;
task type Typ_Task (dummy : Typ_Bool);
end Task1_Pkg;