opt25_pkg1.adb\gnat.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gnat.dg/opt25_pkg1.adb

blob: c18694f7b5a86352fe168cb0b7cb9debb55f54a0 (plain)

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;