| package Inline15_Types is | |
| type Enum is (One, Two, Three, Four); | |
| type Rec (Discr : Enum) is record | |
| Comp_1 : Integer; | |
| case Discr is | |
| when One => | |
| Comp_2 : Float; | |
| when Two => | |
| Comp_3 : Boolean; | |
| Comp_4 : Long_Float; | |
| when others => | |
| null; | |
| end case; | |
| end record; | |
| end Inline15_Types; |