summaryrefslogtreecommitdiff
path: root/gcc/ada/s-fatgen.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/s-fatgen.adb')
-rw-r--r--gcc/ada/s-fatgen.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/s-fatgen.adb b/gcc/ada/s-fatgen.adb
index 57703f4ff6e..35d037ac388 100644
--- a/gcc/ada/s-fatgen.adb
+++ b/gcc/ada/s-fatgen.adb
@@ -744,7 +744,7 @@ package body System.Fat_Gen is
else
Result := Machine (Radix_To_M_Minus_1 + Result) - Radix_To_M_Minus_1;
- if Result > abs X then
+ if Result > abs X then
Result := Result - 1.0;
end if;