PR tree-optimization/81303

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

generic

   type T is private;
   Init_Value : T;

package Opt25_Pkg1 is

   Var : T := Init_Value;
   procedure Swap (A, B : in out T);

end Opt25_Pkg1;