aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/libgnat/a-tifiio__128.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/libgnat/a-tifiio__128.adb')
-rw-r--r--gcc/ada/libgnat/a-tifiio__128.adb9
1 files changed, 0 insertions, 9 deletions
diff --git a/gcc/ada/libgnat/a-tifiio__128.adb b/gcc/ada/libgnat/a-tifiio__128.adb
index 7424346..78c25f2 100644
--- a/gcc/ada/libgnat/a-tifiio__128.adb
+++ b/gcc/ada/libgnat/a-tifiio__128.adb
@@ -201,9 +201,6 @@ package body Ada.Text_IO.Fixed_IO with SPARK_Mode => Off is
((Num'Base'Small_Numerator = 1
and then Num'Base'Small_Denominator <= 2**31)
or else
- (Num'Base'Small_Denominator = 1
- and then Num'Base'Small_Numerator <= 2**31)
- or else
(Num'Base'Small_Numerator <= 2**27
and then Num'Base'Small_Denominator <= 2**27));
-- These conditions are derived from the prerequisites of System.Value_F
@@ -230,9 +227,6 @@ package body Ada.Text_IO.Fixed_IO with SPARK_Mode => Off is
((Num'Base'Small_Numerator = 1
and then Num'Base'Small_Denominator <= 2**63)
or else
- (Num'Base'Small_Denominator = 1
- and then Num'Base'Small_Numerator <= 2**63)
- or else
(Num'Base'Small_Numerator <= 2**59
and then Num'Base'Small_Denominator <= 2**59));
-- These conditions are derived from the prerequisites of System.Value_F
@@ -259,9 +253,6 @@ package body Ada.Text_IO.Fixed_IO with SPARK_Mode => Off is
((Num'Base'Small_Numerator = 1
and then Num'Base'Small_Denominator <= 2**127)
or else
- (Num'Base'Small_Denominator = 1
- and then Num'Base'Small_Numerator <= 2**127)
- or else
(Num'Base'Small_Numerator <= 2**123
and then Num'Base'Small_Denominator <= 2**123));
-- These conditions are derived from the prerequisites of System.Value_F