ubuntu-buildroot/output/build/host-gcc-initial-11.4.0/gcc/testsuite/gnat.dg/task3_pkg1.ads

12 lines
283 B
Ada

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;