generic_inst9_pkg1.ads\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/generic_inst9_pkg1.ads

blob: 50b62f166de5395685c80737dc96b9f75eebd054 (plain)


package Generic_Inst9_Pkg1 is

  type T is (None, Smaller, Equal, Larger);

  type R is record
    Val : Integer;
  end record;

  function Compare (Left, Right : R) return T;

end;