[Ada] Minor code clean-up

gcc/ada/

	* libgnat/g-forstr.adb (Get_Formatted): Minor code clean-up.

diff --git a/gcc/ada/libgnat/g-forstr.adb b/gcc/ada/libgnat/g-forstr.adb
index 64c4cb608ae7685886dd4969427194897e2890ed..71d17f12b73f232411f5552f581105d49209bffb 100644 (file)
--- a/gcc/ada/libgnat/g-forstr.adb
+++ b/gcc/ada/libgnat/g-forstr.adb
@@ -420,7 +420,7 @@ package body GNAT.Formatted_String is
 
       --  Zero padding if required and possible
 
-      if F_Spec.Left_Justify = False
+      if not F_Spec.Left_Justify
         and then F_Spec.Zero_Pad
         and then F_Spec.Width > Len + Value'First - S
       then