1package Dimensions is
2
3   type Mks_Int_Type is new Integer
4     with
5      Dimension_System => (
6        (Unit_Name => Meter,    Unit_Symbol => 'm',   Dim_Symbol => 'L'),
7        (Unit_Name => Kilogram, Unit_Symbol => "kg",  Dim_Symbol => 'M'),
8        (Unit_Name => Second,   Unit_Symbol => 's',   Dim_Symbol => 'T'),
9        (Unit_Name => Ampere,   Unit_Symbol => 'A',   Dim_Symbol => 'I'),
10        (Unit_Name => Kelvin,   Unit_Symbol => 'K',   Dim_Symbol => '@'),
11        (Unit_Name => Mole,     Unit_Symbol => "mol", Dim_Symbol => 'N'),
12        (Unit_Name => Candela,  Unit_Symbol => "cd",  Dim_Symbol => 'J'));
13
14   subtype Int_Length is Mks_Int_Type
15     with
16      Dimension => (Symbol => 'm',
17        Meter  => 1,
18        others => 0);
19
20   subtype Int_Speed is Mks_Int_Type
21     with
22      Dimension => (
23        Meter  =>  1,
24        Second => -1,
25        others =>  0);
26
27   procedure Dummy;
28
29end Dimensions;
30