From 5dbb65676f93504199c1200bfe4dc9f3bc72e2b2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marc=20Poulhi=C3=A8s?= Date: Tue, 22 Mar 2022 10:08:46 +0100 Subject: [Ada] Fix Forced sign flag in formatted string Fix the Forced sign flag that is incorrectly ignored for scientific notation and shortest representation. gcc/ada/ * libgnat/g-forstr.adb (Is_Number): Add scientific notation and shortest representation. --- gcc/ada/libgnat/g-forstr.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/libgnat/g-forstr.adb b/gcc/ada/libgnat/g-forstr.adb index 8ce8d1c..8821de6 100644 --- a/gcc/ada/libgnat/g-forstr.adb +++ b/gcc/ada/libgnat/g-forstr.adb @@ -58,7 +58,7 @@ package body GNAT.Formatted_String is type Sign_Kind is (Neg, Zero, Pos); - subtype Is_Number is F_Kind range Decimal_Int .. Decimal_Float; + subtype Is_Number is F_Kind range Decimal_Int .. Shortest_Decimal_Float_Up; type F_Sign is (If_Neg, Forced, Space) with Default_Value => If_Neg; -- cgit v1.1