blob: 01aa1e4b58aaf5352e14c4252b9fc79ecb499cda [file] [log] [blame]
with Warn10_Pkg; use Warn10_Pkg;
package Warn10 is
type My_Driver is new Root with record
Extra : Natural;
end record;
procedure Do_Something(Driver : My_Driver);
end Warn10;