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

blob: c5e03f58ee9fdd5a4b8695a4eba840f25783ee0a (plain)

with Ada.Finalization;

generic
package Equal4_Smart_Pointers is
   type Pointer is private;

private
   type Pointer is new Ada.Finalization.Controlled with record
      Data : Integer;
   end record;
end Equal4_Smart_Pointers;