test.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

with Text_IO; use Text_IO;
with Ada.Strings.Fixed; use Ada.Strings.Fixed;
with Ada.Strings; use Ada.Strings;

procedure Test is
    type Item_Kind is (Key, Bomb);

    type Item(Kind: Item_Kind) is record
        case Kind is
           when Key => null;
           when Bomb =>
               Cooldown: Integer;
        end case;
    end record;
begin
    null;
end;