diff options
| author | Marc Poulhiès <poulhies@adacore.com> | 2022-03-22 10:08:46 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-17 08:25:46 +0000 |
| commit | 5dbb65676f93504199c1200bfe4dc9f3bc72e2b2 (patch) | |
| tree | 5a48ad39019b101f5cf7c186889d9114a29fb529 | |
| parent | 42fe7c9a809198b50070eb9033ba2be1447519b9 (diff) | |
| download | gcc-5dbb65676f93504199c1200bfe4dc9f3bc72e2b2.zip gcc-5dbb65676f93504199c1200bfe4dc9f3bc72e2b2.tar.gz gcc-5dbb65676f93504199c1200bfe4dc9f3bc72e2b2.tar.bz2 | |
[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.
| -rw-r--r-- | gcc/ada/libgnat/g-forstr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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; |