diff --git a/gcc/ada/a-reatim.adb b/gcc/ada/a-reatim.adb
index c313d50142714a33e79d1369738769aa0a8c39ca..0405a0b1b29e35fa8859d3d88f6e6033444c8561 100644
--- a/gcc/ada/a-reatim.adb
+++ b/gcc/ada/a-reatim.adb
@@ -281,7 +281,7 @@ package body Ada.Real_Time is
             Dist_To_Boundary : constant Time_Span :=
               TS - Time_Span (Closest_Boundary);
             --  Distance between TS and Closest_Boundary expressed in Time_Span
-            --  Both operands in the substraction have the same sign, hence
+            --  Both operands in the subtraction have the same sign, hence
             --  avoiding overflow.
 
          begin