diff options
Diffstat (limited to 'gcc/ada/s-valrea.adb')
| -rw-r--r-- | gcc/ada/s-valrea.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-valrea.adb b/gcc/ada/s-valrea.adb index 2e8306aabdc..40c5abbca8b 100644 --- a/gcc/ada/s-valrea.adb +++ b/gcc/ada/s-valrea.adb @@ -126,7 +126,7 @@ package body System.Val_Real is -- Save up trailing zeroes after the decimal point - if Digit = 0 and After_Point = 1 then + if Digit = 0 and then After_Point = 1 then Num_Saved_Zeroes := Num_Saved_Zeroes + 1; -- Here for a non-zero digit @@ -253,7 +253,7 @@ package body System.Val_Real is -- Save up trailing zeroes after the decimal point - if Digit = 0 and After_Point = 1 then + if Digit = 0 and then After_Point = 1 then Num_Saved_Zeroes := Num_Saved_Zeroes + 1; -- Here for a non-zero digit |