gcc-4.9/gcc/testsuite/gnat.dg/opt25_pkg1.adb


1
2
3
4
5
6
7
8
9
10

package body Opt25_Pkg1 is

   procedure Swap (A, B : in out T) is
      Tmp : T := A;
   begin
      A := B;
      B := Tmp;
   end Swap;

end Opt25_Pkg1;