PR tree-optimization/81303

[official-gcc.git] / gcc / testsuite / gnat.dg / renaming10.ads

package Renaming10 is

   type Rec is record
      Position : Natural;
   end record;

   function F (Input : Rec) return Natural;

end Renaming10;