gcc/testsuite/gnat.dg/opt25_pkg1.adb

   1 package body Opt25_Pkg1 is
   2
   3    procedure Swap (A, B : in out T) is
   4       Tmp : T := A;
   5    begin
   6       A := B;
   7       B := Tmp;
   8    end Swap;
   9
  10 end Opt25_Pkg1;