From: Pascal Obry <obry@adacore.com>
Date: Thu, 16 Sep 2021 14:23:07 +0000 (+0200)
Subject: [Ada] Minor code clean-up
X-Git-Tag: basepoints/gcc-13~4149
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b2b2fe2d679dec37e30b86c73fefa9d7e920f4ca;p=thirdparty%2Fgcc.git

[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 64c4cb608ae7..71d17f12b73f 100644
--- 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