From b2b2fe2d679dec37e30b86c73fefa9d7e920f4ca Mon Sep 17 00:00:00 2001
From: Pascal Obry <obry@adacore.com>
Date: Thu, 16 Sep 2021 16:23:07 +0200
Subject: [PATCH] [Ada] Minor code clean-up

gcc/ada/

	* libgnat/g-forstr.adb (Get_Formatted): Minor code clean-up.
---
 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 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
-- 
2.47.2