gcc/testsuite/gnat.dg/warn10.ads


1
2
3
4
5
6
7
8
9
10
11

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;