equal10.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/equal10.ads

blob: 28e1a2183c882f68b48afddc7f3f5edf054ac782 (plain)

package Equal10 is
  type R is record X : Integer; end record;
  Rr : R;
  function "=" (Y : R; Z : Integer) return Boolean is
     (Y.X = Z);
  procedure Dummy;
end Equal10;