3 type Rec1 (D : Boolean := False) is record
6 when True => Pos : Integer;
14 type Rec3 is tagged null record;
16 type Enum is (One, Two, Three);
18 type Rec4 (Kind : Enum := One) is record
22 when Others => I : Integer;
30 procedure Proc (Pool : in out Rec5);