RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / limited1_inner.ads
bloba06c9034f066b2bd2fdfa875a8d7e79fabffa078
1 with Ada.Finalization;
2 package Limited1_Inner is
3 type Limited_Type is new Ada.Finalization.Limited_Controlled with record
4 Self : access Limited_Type := Limited_Type'Unchecked_Access;
5 end record;
6 overriding procedure Finalize (X : in out Limited_Type);
8 type Inner_Type (What : Boolean) is record
9 case What is
10 when False =>
11 null;
12 when True =>
13 L : Limited_Type;
14 end case;
15 end record;
17 function Make_Inner return Inner_Type;
18 end;