nameres: fix the XFAIL predicate

AdaCore · Jan 8, 2024 · 6ed7d93 · 6ed7d93
1 parent 4fea277
commit 6ed7d93
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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;