1with Task3_Pkg1; use Task3_Pkg1; 2 3package Task3_Pkg2 is 4 type Root (Discr : Integer) is tagged limited record 5 Wrap : Task_Wrapper (Discr); 6 end record; 7end Task3_Pkg2; 8
1with Task3_Pkg1; use Task3_Pkg1; 2 3package Task3_Pkg2 is 4 type Root (Discr : Integer) is tagged limited record 5 Wrap : Task_Wrapper (Discr); 6 end record; 7end Task3_Pkg2; 8