From 9cfd2c38f39cc2160d057dcd9e44acf73fec58bd Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@adacore.com>
Date: Mon, 28 Sep 2020 05:52:09 -0400
Subject: [PATCH] [Ada] Wrong handling of _ in Big_Reals.From_String

gcc/ada/

	* libgnat/a-nbnbre.adb (From_String): Handle properly '_'
	characters.
---
 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;
-- 
2.30.2