1with Warn10_Pkg; use Warn10_Pkg; 2 3package Warn10 is 4 5 type My_Driver is new Root with record 6 Extra : Natural; 7 end record; 8 9 procedure Do_Something(Driver : My_Driver); 10 11end Warn10; 12