blob: cc41be076883643a101f988dc5b0985841d145a2 [file] [log] [blame]
package Task3_Pkg1 is
type Task_Wrapper (Discr : Integer) is tagged limited private;
private
task type Task_Typ (Discr : Integer) is
end Task_Typ;
type Task_Wrapper (Discr : Integer) is tagged limited record
Tsk : Task_Typ (Discr);
end record;
end Task3_Pkg1;