From 6ed7d93ce0d43ef959c3603df90b93b66b6b8d53 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Laurent=20Th=C3=A9venoux?= <thevenoux@adacore.com>
Date: Thu, 4 Jan 2024 16:51:10 +0100
Subject: [PATCH] nameres: fix the XFAIL predicate

---
 testsuite/ada/nameres.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/testsuite/ada/nameres.adb b/testsuite/ada/nameres.adb
index d9d7f2ddf..f7bf5f536 100644
--- a/testsuite/ada/nameres.adb
+++ b/testsuite/ada/nameres.adb
@@ -977,8 +977,9 @@ procedure Nameres is
                      Put_Line ("XFAIL: " & Image (Arg.P_Denoted_Value, False));
                      Put_Line ("");
                   end;
+                  return True;
                end if;
-               return True;
+               return False;
             end if;
             return False;
          end XFAIL;