diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/libgnat/a-nbnbre.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/libgnat/a-nbnbre.adb b/gcc/ada/libgnat/a-nbnbre.adb index d61668d..055dedc 100644 --- a/gcc/ada/libgnat/a-nbnbre.adb +++ b/gcc/ada/libgnat/a-nbnbre.adb @@ -340,7 +340,7 @@ package body Ada.Numerics.Big_Numbers.Big_Reals is elsif Arg (J) = '.' then Index := J - 1; exit; - else + elsif Arg (J) /= '_' then Pow := Pow + 1; end if; end loop; |