view gcc/testsuite/gnat.dg/type_conv2.ads @ 152:2b5abeee2509

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 1830386684a0
children
line wrap: on
line source

package Type_Conv2 is

   type Root is abstract tagged limited null record;

   type Der_I is new Root with record
      X : Integer;
   end record;

   function Wrap (X : Integer) return Root'Class;

   procedure Proc_Static;

end Type_Conv2;