PR debug/66535
[official-gcc.git] / gcc / testsuite / gnat.dg / opt25_pkg1.adb
blobc18694f7b5a86352fe168cb0b7cb9debb55f54a0
1 package body Opt25_Pkg1 is
3 procedure Swap (A, B : in out T) is
4 Tmp : T := A;
5 begin
6 A := B;
7 B := Tmp;
8 end Swap;
10 end Opt25_Pkg1;