gcc-4.8.3/gcc/testsuite/gnat.dg/opt25_pkg1.ads


1
2
3
4
5
6
7
8
9
10
11

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;