1 files changed, 25 insertions, 0 deletions
diff --git a/gcc/ada/s-dimmks.ads b/gcc/ada/s-dimmks.ads
index 50553d1d195..fd0fc0060eb 100644
--- a/gcc/ada/s-dimmks.ads
+++ b/gcc/ada/s-dimmks.ads
@@ -64,31 +64,37 @@ package System.Dim.Mks is
       Dimension => (Symbol => 'm',
         Meter  => 1,
         others => 0);
+
    subtype Mass is Mks_Type
      with
       Dimension => (Symbol => "kg",
         Kilogram => 1,
         others =>   0);
+
    subtype Time is Mks_Type
      with
       Dimension => (Symbol => 's',
         Second => 1,
         others => 0);
+
    subtype Electric_Current is Mks_Type
      with
       Dimension => (Symbol => 'A',
         Ampere => 1,
         others => 0);
+
    subtype Thermodynamic_Temperature is Mks_Type
      with
       Dimension => (Symbol => 'K',
         Kelvin => 1,
         others => 0);
+
    subtype Amount_Of_Substance is Mks_Type
      with
       Dimension => (Symbol => "mol",
         Mole =>   1,
         others => 0);
+
    subtype Luminous_Intensity is Mks_Type
      with
       Dimension => (Symbol => "cd",
@@ -122,6 +128,7 @@ package System.Dim.Mks is
       Dimension => (Symbol => "Hz",
         Second => -1,
         others => 0);
+
    subtype Force is Mks_Type
      with
       Dimension => (Symbol => 'N',
@@ -129,6 +136,7 @@ package System.Dim.Mks is
         Kilogram => 1,
         Second =>  -2,
         others =>   0);
+
    subtype Pressure is Mks_Type
      with
       Dimension => (Symbol => "Pa",
@@ -136,6 +144,7 @@ package System.Dim.Mks is
         Kilogram => 1,
         Second =>   -2,
         others =>   0);
+
    subtype Energy is Mks_Type
      with
       Dimension => (Symbol => 'J',
@@ -143,6 +152,7 @@ package System.Dim.Mks is
         Kilogram => 1,
         Second =>   -2,
         others =>   0);
+
    subtype Power is Mks_Type
      with
       Dimension => (Symbol => 'W',
@@ -150,12 +160,14 @@ package System.Dim.Mks is
         Kilogram => 1,
         Second =>   -3,
         others =>   0);
+
    subtype Electric_Charge is Mks_Type
      with
       Dimension => (Symbol => 'C',
         Second => 1,
         Ampere => 1,
         others => 0);
+
    subtype Electric_Potential_Difference is Mks_Type
      with
       Dimension => (Symbol => 'V',
@@ -164,6 +176,7 @@ package System.Dim.Mks is
         Second =>   -3,
         Ampere =>   -1,
         others =>   0);
+
    subtype Electric_Capacitance is Mks_Type
      with
       Dimension => (Symbol => 'F',
@@ -172,6 +185,7 @@ package System.Dim.Mks is
         Second =>   4,
         Ampere =>   2,
         others =>   0);
+
    subtype Electric_Resistance is Mks_Type
      with
       Dimension => (Symbol => "Ω",
@@ -180,6 +194,7 @@ package System.Dim.Mks is
         Second =>   -3,
         Ampere =>   -2,
         others =>   0);
+
    subtype Electric_Conductance is Mks_Type
      with
       Dimension => (Symbol => 'S',
@@ -188,6 +203,7 @@ package System.Dim.Mks is
         Second =>   3,
         Ampere =>   2,
         others =>   0);
+
    subtype Magnetic_Flux is Mks_Type
      with
       Dimension => (Symbol => "Wb",
@@ -196,6 +212,7 @@ package System.Dim.Mks is
         Second =>   -2,
         Ampere =>   -1,
         others =>   0);
+
    subtype Magnetic_Flux_Density is Mks_Type
      with
       Dimension => (Symbol => 'T',
@@ -203,6 +220,7 @@ package System.Dim.Mks is
         Second =>   -2,
         Ampere =>   -1,
         others =>   0);
+
    subtype Inductance is Mks_Type
      with
       Dimension => (Symbol => 'H',
@@ -211,39 +229,46 @@ package System.Dim.Mks is
         Second =>   -2,
         Ampere =>   -2,
         others =>   0);
+
    subtype Celsius_Temperature is Mks_Type
      with
       Dimension => (Symbol => "°C",
         Kelvin => 1,
         others => 0);
+
    subtype Luminous_Flux is Mks_Type
      with
       Dimension => (Symbol => "lm",
         Candela => 1,
         others =>  0);
+
    subtype Illuminance is Mks_Type
      with
       Dimension => (Symbol => "lx",
         Meter =>   -2,
         Candela => 1,
         others =>  0);
+
    subtype Radioactivity is Mks_Type
      with
       Dimension => (Symbol => "Bq",
         Second => -1,
         others => 0);
+
    subtype Absorbed_Dose is Mks_Type
      with
       Dimension => (Symbol => "Gy",
         Meter =>  2,
         Second => -2,
         others => 0);
+
    subtype Equivalent_Dose is Mks_Type
      with
       Dimension => (Symbol => "Sv",
         Meter =>  2,
         Second => -2,
         others => 0);
+
    subtype Catalytic_Activity is Mks_Type
      with
       Dimension => (Symbol => "kat",