ada: Fix GNAT.Formatted_String's handling of real values

Before this patch, passing a width and a precision through
arguments with the "*" syntax always failed for real values in
GNAT.Formatted_String's routines.

gcc/ada/

	* libgnat/g-forstr.adb (P_Flt_Format): Add "*" syntax handling.

diff --git a/gcc/ada/libgnat/g-forstr.adb b/gcc/ada/libgnat/g-forstr.adb
index c9fb86b44f77fa6f6b8a55bc4f99fbd0e4f93109..2179818bba4cbb7166f7c21b53fbb97a8686ec9a 100644 (file)
--- a/gcc/ada/libgnat/g-forstr.adb
+++ b/gcc/ada/libgnat/g-forstr.adb
@@ -686,9 +686,10 @@ package body GNAT.Formatted_String is
    begin
       Next_Format (Format, F, Start);
 
-      if F.Value_Needed > 0 then
+      if F.Value_Needed /= Format.D.Stored_Value then
          Raise_Wrong_Format (Format);
       end if;
+      Format.D.Stored_Value := 0;
 
       if F.Precision = Unset then
          Aft := 6;