gcc/testsuite/gnat.dg/opt25_pkg1.ads

   1 generic
   2
   3    type T is private;
   4    Init_Value : T;
   5
   6 package Opt25_Pkg1 is
   7
   8    Var : T := Init_Value;
   9    procedure Swap (A, B : in out T);
  10
  11 end Opt25_Pkg1;