[gcc r11-5282] [Ada] Wrong handling of _ in Big_Reals.From_String

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:9cfd2c38f39cc2160d057dcd9e44acf73fec58bd

commit r11-5282-g9cfd2c38f39cc2160d057dcd9e44acf73fec58bd
Author: Arnaud Charlet <charlet@adacore.com>
Date:   Mon Sep 28 05:52:09 2020 -0400

    [Ada] Wrong handling of _ in Big_Reals.From_String
    
    gcc/ada/
    
            * libgnat/a-nbnbre.adb (From_String): Handle properly '_'
            characters.

Diff:
---
 gcc/ada/libgnat/a-nbnbre.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/libgnat/a-nbnbre.adb b/gcc/ada/libgnat/a-nbnbre.adb
index d61668d1abe..055dedc59ad 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;